From 58367975aed706172487727330670d62fcb0e6d1 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Fri, 25 Nov 2022 22:18:11 +0100 Subject: assert v0 --- app/Frontend.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Frontend.hs') diff --git a/app/Frontend.hs b/app/Frontend.hs index fc57efc..8232b15 100644 --- a/app/Frontend.hs +++ b/app/Frontend.hs @@ -68,12 +68,12 @@ interpret = (>> return True) . lex interpreterStart :: PrlgEnv () interpreterStart = do - addBuiltins + addPrelude interpreterLoop interpreterLoop :: PrlgEnv () interpreterLoop = do - minput <- lift $ getInputLine "prlg> " + minput <- lift $ getInputLine "prlg? " --TODO switch with plain . case minput of Nothing -> return () Just input -> do -- cgit v1.2.3