From eff903fc61b060b6333cb60bfced95e44da000ba Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 2 Mar 2024 11:21:44 +0100
Subject: Started non-outsourced optimizer

---
 src/Eval.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Eval.hs')

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
-- 
cgit v1.2.3