@@ -44,16 +44,16 @@ decodeAtto
4444 = parseOnly (scientific <* AttoL.endOfInput)
4545 where
4646 parseOnly p lbs = case AttoL.parse p lbs of
47− AttoL.Done _ r -> Just r
48− AttoL.Fail _ _ _ -> Nothing
47+ AttoL.Done _ r -> Just r
48+ AttoL.Fail {} -> Nothing
4949
5050decodeAtto8 :: LBS.ByteString -> Maybe Scientific
5151decodeAtto8
5252 = parseOnly (Atto8.scientific <* AttoL.endOfInput)
5353 where
5454 parseOnly p lbs = case AttoL.parse p lbs of
55− AttoL.Done _ r -> Just r
56− AttoL.Fail _ _ _ -> Nothing
55+ AttoL.Done _ r -> Just r
56+ AttoL.Fail {} -> Nothing
5757
5858generate :: Int64 -> LBS.ByteString
5959generate n = LBS8.replicate n '1'