diff options
author | Marvin Borner | 2024-03-02 11:21:44 +0100 |
---|---|---|
committer | Marvin Borner | 2024-03-02 11:21:44 +0100 |
commit | eff903fc61b060b6333cb60bfced95e44da000ba (patch) | |
tree | b99fb2070843ed33f4449c0c9d7777d2db337e79 /src/Eval.hs | |
parent | fe951a51daa805f1abb9a973bbe749888d8f9a83 (diff) |
Started non-outsourced optimizer
Diffstat (limited to 'src/Eval.hs')
-rw-r--r-- | src/Eval.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 5091b49..d331e86 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -28,6 +28,7 @@ import System.Console.Haskeline import System.Directory import System.FilePath.Posix ( takeBaseName ) import System.Mem +import Target import Text.Megaparsec hiding ( State , try ) @@ -408,7 +409,7 @@ dumpFile conf wr conv = do case M.lookup entryFunction env of Nothing -> print $ ContextualError (UndefinedIdentifier entryFunction) (Context "" (_nicePath conf)) - Just EnvDef { _exp = e } -> optimizeToTarget conf e >>= wr . conv + Just EnvDef { _exp = e } -> toTarget conf e >>= wr . conv evalFileConf :: EvalConf -> IO () evalFileConf conf = do |