Bad args to execStr.

This commit is contained in:
Jorge Acereda 2020-05-22 23:30:09 +02:00
parent 6bce3b1ee1
commit 2ac01a1c3e

View File

@ -115,8 +115,8 @@ main = do setLocaleEncoding utf8
putStrLn "Evaluate (help) for more information."
snd <$> runRepl ctx
Build -> execStr "Compiler (Build)" "(build)" ctx
Install thing -> execStr ("(load \"" ++ thing ++ "\")") "Installation" ctx
BuildAndRun -> execStr "(do (build) (run))" "Compiler (Build & Run)" ctx
Install thing -> execStr "Installation" ("(load \"" ++ thing ++ "\")") ctx
BuildAndRun -> execStr "Compiler (Build & Run)" "(do (build) (run))" ctx
Check -> execStr "Check" "" ctx
-- TODO: Handle the return value from executeString and return that one to the shell
pure ()