diff options
| author | Marvin Borner | 2023-03-05 16:28:58 +0100 |
|---|---|---|
| committer | Marvin Borner | 2023-03-05 16:28:58 +0100 |
| commit | f5dc226df6ef8e5f257352409965603bbdaabd42 (patch) | |
| tree | db9f656c9093df336c58f556139da01b4ca573c9 /src/Eval.hs | |
| parent | ca808bc09373f123514bf865a4518bebac3bbbc3 (diff) | |
Made stdin and argument conversion lazy
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |