diff options
Diffstat (limited to 'src/Lib.hs')
| -rw-r--r-- | src/Lib.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -15,11 +15,11 @@ import Evaluator ( evaluate ) runScriptFile :: Env -> String -> LContext (Env, [AST]) runScriptFile env fileName = do src <- liftIO $ readFile fileName - runInlineScript env src + runInlineScript fileName env src -runInlineScript :: Env -> String -> LContext (Env, [AST]) -runInlineScript env src = do - tokenized <- tokenize src +runInlineScript :: String -> Env -> String -> LContext (Env, [AST]) +runInlineScript fileName env src = do + tokenized <- tokenize fileName src config <- ask when (configVerboseMode config) $ liftIO $ putStrLn $ "tokenized:\t\t" ++ show tokenized parsed <- parse tokenized |
