diff options
| author | Marvin Borner | 2024-01-21 11:55:55 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-01-21 11:56:43 +0100 |
| commit | faf61ef00caa6ffe4e54c5a98232dafb905b9b26 (patch) | |
| tree | 6c9e1c9bb41b17e2db8641a36099789a1882e73a /src/Eval.hs | |
| parent | af754df7380b664fea6295813ee7dc64642c8444 (diff) | |
Targetted dumping and (un)bblc
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 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 |