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/Eval.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Eval.hs')

diff --git a/src/Eval.hs b/src/Eval.hs
index 03e1201..c91329c 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -9,7 +9,7 @@ import           Control.Exception
 import           Control.Monad.State
 import qualified Control.Monad.State.Strict    as StrictState
 import qualified Data.BitString                as Bit
-import qualified Data.ByteString               as Byte
+import qualified Data.ByteString.Lazy          as Byte
 import           Data.Function                  ( on )
 import           Data.List
 import qualified Data.Map                      as M
@@ -448,11 +448,11 @@ evalMain = do
   case args of
     []           -> runRepl
     ["-b", path] -> dumpFile path
-                             (Byte.putStr . Bit.realizeBitStringStrict)
+                             (Byte.putStr . Bit.realizeBitStringLazy)
                              (toBitString . toBinary)
     ["-B", path] -> dumpFile path putStrLn toBinary
     ["-e", path] ->
-      exec path (try . Byte.readFile) (fromBitString . Bit.bitString)
+      exec path (try . Byte.readFile) (fromBitString . Bit.bitStringLazy)
     ["-E", path] -> exec path (try . readFile) id
     ["-y", path] -> evalYolo path
     ['-' : _]    -> usage
-- 
cgit v1.2.3