Fix unnecessary calls to padding

mlabs-haskell · Dec 11, 2023 · f3cb384 · f3cb384
1 parent df7b35a
commit f3cb384
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Naive.hs b/src/Naive.hs
@@ -140,7 +140,7 @@ toByteString requestedLength requestedByteOrder i = case signum i of
                 _ -> goBELimit (word64BE digitGroup <> acc) newRemaining
     goLENoLimit :: Builder -> Integer -> Builder
     goLENoLimit acc remaining
-      | remaining == 0 = padLE acc
+      | remaining == 0 = acc
       | otherwise =
           let newRemaining = remaining `unsafeShiftR` 64
               digitGroup = fromInteger remaining
@@ -149,7 +149,7 @@ toByteString requestedLength requestedByteOrder i = case signum i of
                 _ -> goLENoLimit (acc <> storable digitGroup) newRemaining
     goBENoLimit :: Builder -> Integer -> Builder
     goBENoLimit acc remaining
-      | remaining == 0 = padBE acc
+      | remaining == 0 = acc
       | otherwise =
           let newRemaining = remaining `unsafeShiftR` 64
               digitGroup = fromInteger remaining