Skip to content

Commit

Permalink
Fix issue in StrictSeq deserialisation
Browse files Browse the repository at this point in the history
  • Loading branch information
nc6 committed Apr 24, 2020
1 parent 9aa9c44 commit cfeb123
Showing 1 changed file with 1 addition and 1 deletion.
Expand Up @@ -175,7 +175,7 @@ decodeCollectionWithLen lenOrIndef el = do
Nothing -> loop (0,[]) (not <$> decodeBreakOr) el
where
loop (n,acc) condition action = condition >>= \case
False -> pure (n,acc)
False -> pure (n,reverse acc)
True -> action >>= \v -> loop (n+1, (v:acc)) condition action

rationalToCBOR :: Rational -> Encoding
Expand Down

0 comments on commit cfeb123

Please sign in to comment.