diff options
| -rw-r--r-- | Data/FastQ.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |