diff options
author | Justin Bedo <cu@cua0.org> | 2023-08-03 16:25:16 +1000 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2023-08-03 23:34:27 +1000 |
commit | 04685332602ebcb6c0429026aa1def55f4c8c483 (patch) | |
tree | 23dd44766e5d5206aafa9187187cae16872e3808 /Data/FastQ.hs | |
parent | ae32b54617ab7bd5d24764d0d85a7a08a9e8d461 (diff) |
tidy code
Diffstat (limited to 'Data/FastQ.hs')
-rw-r--r-- | Data/FastQ.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Data/FastQ.hs b/Data/FastQ.hs index 217d58a..850ac5c 100644 --- a/Data/FastQ.hs +++ b/Data/FastQ.hs @@ -3,33 +3,30 @@ {-# LANGUAGE StrictData #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE ViewPatterns #-} +{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module Data.FastQ where import Codec.Compression.GZip -import Data.Bifunctor (bimap) import Control.Monad import Control.Monad.IO.Class (MonadIO, liftIO) +import Data.Bifunctor (bimap) import Data.ByteString (ByteString) import qualified Data.ByteString as B import qualified Data.ByteString.Char8 as BC import qualified Data.ByteString.Lazy as BSL import qualified Data.ByteString.Lazy.Internal as BSL import Data.Function -import Data.Void import Data.Word (Word8) -import Debug.Trace import Lens.Micro import Lens.Micro.TH import Streamly.Data.Array (Array) -import Streamly.Data.Fold as F import Streamly.Data.Stream (Stream) import qualified Streamly.Data.Stream as S import qualified Streamly.External.ByteString as SB import Streamly.Internal.Data.Stream.Chunked as AS import Streamly.Internal.Data.Stream.StreamD.Type (Step (..)) import Streamly.Internal.Data.Unfold.Type (Unfold (..)) -import qualified Streamly.Internal.FileSystem.File as File import System.IO import System.IO.Unsafe (unsafeInterleaveIO) import Prelude hiding (Read) |