Commit ff5cab2b authored by simonpj's avatar simonpj
Browse files

[project @ 2000-11-02 10:17:49 by simonpj]

Omitted do-nothing case in SimplCore
parent 2ffefc1b
......@@ -132,6 +132,8 @@ doCorePass dfs rb us binds CoreDoUSPInf
= _scc_ "CoreUsageSPInf" noStats dfs (doUsageSPInf dfs us binds)
doCorePass dfs rb us binds CoreDoGlomBinds
= noStats dfs (glomBinds dfs binds)
doCorePass dfs rb us binds CoreDoNothing
= noStats dfs (return binds)
printCore binds = do dumpIfSet True "Print Core"
(pprCoreBindings binds)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment