aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Eval.hs
diff options
context:
space:
mode:
authorMarvin Borner2024-03-02 11:21:44 +0100
committerMarvin Borner2024-03-02 11:21:44 +0100
commiteff903fc61b060b6333cb60bfced95e44da000ba (patch)
treeb99fb2070843ed33f4449c0c9d7777d2db337e79 /src/Eval.hs
parentfe951a51daa805f1abb9a973bbe749888d8f9a83 (diff)
Started non-outsourced optimizer
Diffstat (limited to 'src/Eval.hs')
-rw-r--r--src/Eval.hs3
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