diff options
| author | Ben Sima <ben@bsima.me> | 2019-03-27 23:07:51 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-03-27 23:07:51 -0700 |
| commit | 794b248d0afb9ae7eae1bc0d8f6498a903e02e23 (patch) | |
| tree | b9a10065ed357f8ab2ad8cc112a88a197ec445f1 /lore/Language/Bs/Eval.hs | |
| parent | 4ecc513e5917057f50150e2cb0a1d63d6010f0d7 (diff) | |
bs: formatting
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 |