diff options
| author | Justin Bedo <cu@cua0.org> | 2023-08-16 12:16:05 +1000 |
|---|---|---|
| committer | Justin Bedo <cu@cua0.org> | 2023-08-16 12:16:05 +1000 |
| commit | b1b959c2af53044b942766eb84b25c114637aee3 (patch) | |
| tree | f2b6f5d23485856f8c7a6fda0d129ddd14065f65 | |
| parent | a20ffc8d13b568b04ee8bab6a90f241987077ed9 (diff) | |
bugfix: correctly seed filepath
| -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 |