From 2ac01a1c3ea0e1e99f3aaadc4f0b0c61b9c2c7a3 Mon Sep 17 00:00:00 2001 From: Jorge Acereda Date: Fri, 22 May 2020 23:30:09 +0200 Subject: [PATCH] Bad args to execStr. --- app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 2215c364..f714df4b 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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 ()