diff options
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 |