From 794b248d0afb9ae7eae1bc0d8f6498a903e02e23 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 27 Mar 2019 23:07:51 -0700 Subject: bs: formatting --- lore/Language/Bs/Eval.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lore/Language/Bs/Eval.hs') 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 -- cgit v1.2.3