From faf61ef00caa6ffe4e54c5a98232dafb905b9b26 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 21 Jan 2024 11:55:55 +0100
Subject: Targetted dumping and (un)bblc

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

(limited to 'src/Eval.hs')

diff --git a/src/Eval.hs b/src/Eval.hs
index f57a47c..097613f 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -405,7 +405,7 @@ dumpFile conf wr conv = do
   case M.lookup entryFunction env of
     Nothing -> print $ ContextualError (UndefinedIdentifier entryFunction)
                                        (Context "" (_nicePath conf))
-    Just EnvDef { _exp = e } -> wr $ conv e
+    Just EnvDef { _exp = e } -> optimizeToTarget conf e >>= wr . conv
 
 evalFileConf :: EvalConf -> IO ()
 evalFileConf conf = do
-- 
cgit v1.2.3