git.iko.soy/streamly
on master help sign in
Use takeEQ instead of take parser
24a5d11Harendra Kumar
src/Streamly/Internal/Data/Binary/Decode.hs+1−1
compare with master
unifiedsplit
@@ -275,4 +275,4 @@ word64le = PRK.toParserK word64leD
275{-# INLINE word64host #-}
275{-# INLINE word64host #-}
276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64
276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64
277word64host =
277word64host =
278− fmap (flip A.unsafeIndex 0 . A.unsafeCast) $ PR.take 8 (A.writeN 8)
278+ fmap (flip A.unsafeIndex 0 . A.unsafeCast) $ PR.takeEQ 8 (A.writeN 8)