diff options
| author | Marvin Borner | 2022-08-08 00:25:48 +0200 |
|---|---|---|
| committer | Marvin Borner | 2022-08-08 00:25:48 +0200 |
| commit | 9563b2cb9e58403877445a9c9964b5ee9e946075 (patch) | |
| tree | 2ee9842a59cc42228421b71b97c65af0e16bea27 /src/Eval.hs | |
| parent | a614ac0ed73ae6e12c0c15d057c93a5c96d1e08c (diff) | |
Obviously trivial
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 0eb6c9e..0e4f1f3 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -125,7 +125,7 @@ evalInstruction instr s@(EnvState env) rec isRepl = case instr of | otherwise = namespace ++ "." env'' <- pure $ Environment $ map (\((n, e), o) -> ((prefix ++ n, e), o)) ((\(Environment e) -> e) env') -- TODO: Improve - rec (EnvState $ env <> env'') False -- import => isRepl = False + rec (EnvState $ env'' <> env) False -- import => isRepl = False Evaluate e -> let (res, _) = evalExp e (Environment []) `runState` env in putStrLn |