diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 113a3ba..0fe5551 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -15,6 +15,8 @@ parseArgs config args = config { configVerboseMode = True } rest ("-h":rest) -> parseArgs config { configShowHelp = True } rest + ("-e":rest) -> parseArgs + config { configPrintEvaled = True } rest _ -> config repl :: Config -> Env -> InputT IO () @@ -39,7 +41,8 @@ main = do let initialConfig = Config { configScriptFileName = Nothing, configVerboseMode = False, - configShowHelp = False + configShowHelp = False, + configPrintEvaled = False } let config = parseArgs initialConfig args @@ -48,6 +51,7 @@ main = do putStrLn $ "Usage: " ++ progName ++ " # to open REPL" putStrLn $ " " ++ progName ++ " -i scriptFile # to run script file" putStrLn $ " " ++ progName ++ " -h # to show this help" + putStrLn $ " " ++ progName ++ " -e # to automatically print results of evaluated expressions to stdout" else do when (configVerboseMode config) $ do putStrLn $ "configScriptFileName:\t" ++ (show $ configScriptFileName config) |