From f5dc226df6ef8e5f257352409965603bbdaabd42 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 5 Mar 2023 16:28:58 +0100
Subject: Made stdin and argument conversion lazy

---
 src/Binary.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Binary.hs')

diff --git a/src/Binary.hs b/src/Binary.hs
index ac08ca7..a9e8028 100644
--- a/src/Binary.hs
+++ b/src/Binary.hs
@@ -10,7 +10,6 @@ import           Data.Binary                    ( decode
                                                 , encode
                                                 )
 import qualified Data.BitString                as Bit
-import qualified Data.ByteString.Lazy          as Byte
 import           Data.Word                      ( Word8 )
 import           Helper
 
@@ -43,8 +42,7 @@ fromBinary = fst . fromBinary'
 -- TODO: technically only 1 nibble is needed (use other nibble for versioning/sth?)
 toBitString :: String -> Bit.BitString
 toBitString str = Bit.concat
-  [ Bit.bitString $ Byte.toStrict $ encode
-    (fromIntegral $ length str `mod` 8 :: Word8)
+  [ Bit.bitStringLazy $ encode (fromIntegral $ length str `mod` 8 :: Word8)
   , Bit.fromList $ map
     (\case
       '0' -> False
-- 
cgit v1.2.3