From b1b959c2af53044b942766eb84b25c114637aee3 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Wed, 16 Aug 2023 12:16:05 +1000 Subject: bugfix: correctly seed filepath --- Data/FastQ.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/FastQ.hs b/Data/FastQ.hs index 8309c97..91f0d5f 100644 --- a/Data/FastQ.hs +++ b/Data/FastQ.hs @@ -52,7 +52,7 @@ parse l r = streamFile :: MonadIO m => Unfold m FilePath (Array Word8) streamFile = Unfold step seed where - seed = pure $ BSL.tail . decompress <$> liftIO (BSL.readFile r) + seed = fmap (BSL.tail . decompress) . liftIO . BSL.readFile step (BSL.Chunk bs bl) = pure $ Yield (SB.toArray bs) bl step BSL.Empty = pure Stop -- cgit v1.2.3