diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-25 22:18:11 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-25 22:18:11 +0100 |
| commit | 58367975aed706172487727330670d62fcb0e6d1 (patch) | |
| tree | d605c3ba9bee6e1739ca469a36bb3b58d7273439 /app/Frontend.hs | |
| parent | 6f123999e01fc1c26742f4c9f575b392693d2847 (diff) | |
| download | prlg-58367975aed706172487727330670d62fcb0e6d1.tar.gz prlg-58367975aed706172487727330670d62fcb0e6d1.tar.bz2 | |
assert v0
Diffstat (limited to 'app/Frontend.hs')
| -rw-r--r-- | app/Frontend.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |