Use takeEQ instead of take parser
commit24a5d11be659f4ffc1462b441bce512bac5136cd
authorHarendra Kumar <harendra@composewell.com>
dateFri 4 Sep 2020, 21:36 (6 years ago)
parent2a1097f
src/Streamly/Internal/Data/Binary/Decode.hs+1−1
@@ -275,4 +275,4 @@ word64le = PRK.toParserK word64leD
275275{-# INLINE word64host #-}
276276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64
277277word64host =
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)