From be57c3a0f907661fba2ef559529be743dca28ca1 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Thu, 3 Aug 2023 09:03:04 +1000 Subject: tidy, more fusion, handle different read headers --- dedumi.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'dedumi.hs') diff --git a/dedumi.hs b/dedumi.hs index 01d9b37..7bf6dd4 100644 --- a/dedumi.hs +++ b/dedumi.hs @@ -15,7 +15,6 @@ import Data.Typeable import Lens.Micro import qualified Streamly.Data.Stream as S import System.Environment -import Prelude hiding (reads) instance CuckooFilterHash ByteString where cuckooHash (Salt s) = saltedFnv1aByteString s @@ -27,13 +26,13 @@ umiLength = 8 trim x = x - & reads . _1 . nucs %~ B.drop umiLength - & reads . _2 . nucs %~ B.drop umiLength - & reads . _1 . qual %~ B.drop umiLength - & reads . _2 . qual %~ B.drop umiLength + & _1 . nucs %~ B.drop umiLength + & _2 . nucs %~ B.drop umiLength + & _1 . qual %~ B.drop umiLength + & _2 . qual %~ B.drop umiLength insert' f x = - let y = B.take umiLength (x ^. reads . _1 . nucs) <> B.take umiLength (x ^. reads . _2 . nucs) + let y = B.take umiLength (x ^. _1 . nucs) <> B.take umiLength (x ^. _2 . nucs) in member f y >>= \case True -> pure True False -> -- cgit v1.2.3