diff options
Diffstat (limited to 'lore/Language/Bs/Eval.hs')
| -rw-r--r-- | lore/Language/Bs/Eval.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lore/Language/Bs/Eval.hs b/lore/Language/Bs/Eval.hs index 8495b88..a3232bc 100644 --- a/lore/Language/Bs/Eval.hs +++ b/lore/Language/Bs/Eval.hs @@ -95,7 +95,8 @@ getFileContents fname = do if exists then TIO.readFile fname else return "File does not exist." textToEvalForm :: T.Text -> T.Text -> Eval Expr -textToEvalForm std input = either (throw . ParseError . show ) evalBody $ parseWithLib std input +textToEvalForm std input = either (throw . ParseError . show ) evalBody + $ parseWithLib std input evalText :: T.Text -> IO () --REPL evalText textExpr = do @@ -239,7 +240,7 @@ eval (List ((:) x xs)) = do throw $ NotFunction funVar updateEnv :: T.Text -> Expr -> Env -> Env -updateEnv var e@(IFun _) Env{..} = Env env $ Map.insert var e fenv +updateEnv var e@(IFun _) Env{..} = Env env $ Map.insert var e fenv updateEnv var e@(Func _ _) Env{..} = Env env $ Map.insert var e fenv updateEnv var e Env{..} = Env (Map.insert var e env) fenv |