Skip to content

Commit 8fdb761

Browse files
Soupstrawlehins
andcommitted
decodeBytesIndefLen strictness
Co-authored-by: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>
1 parent 48b4e07 commit 8fdb761

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

  • libs/cardano-ledger-binary/src/Cardano/Ledger/Binary/Decoding

libs/cardano-ledger-binary/src/Cardano/Ledger/Binary/Decoding/Decoder.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1568,7 +1568,7 @@ decodeStringDefOrIndef =
15681568
decodeBytesIndefLen :: Decoder s BS.ByteString
15691569
decodeBytesIndefLen = decodeBytesIndef *> go []
15701570
where
1571-
go acc = do
1571+
go !acc = do
15721572
stop <- decodeBreakOr
15731573
if stop
15741574
then pure $! BS.concat (reverse acc)

0 commit comments

Comments
 (0)