X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=2c1be78b43accccfac7207c5a0c071a2718eee2e;hb=99073d876ea762016683fb0b22b9d343ff864eb4;hp=797c85046223c8decbd8307b0d57d0d74bf59964;hpb=323fee1e8cbabe604496a1b92c6de0e98ca037e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 797c850..2c1be78 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -111,7 +111,6 @@ hscMain flags core_cmds stg_cmds summary maybe_old_iface
     mkSplitUniqSupply 'd'	>>= \ ds_uniqs 	-> -- desugarer
     mkSplitUniqSupply 'r'	>>= \ ru_uniqs 	-> -- rules
     mkSplitUniqSupply 'c'	>>= \ c2s_uniqs -> -- core-to-stg
-    mkSplitUniqSupply 'u'	>>= \ tidy_uniqs -> -- tidy up
     mkSplitUniqSupply 'g'	>>= \ st_uniqs  -> -- stg-to-stg passes
     mkSplitUniqSupply 'n'	>>= \ ncg_uniqs -> -- native-code generator
 
@@ -158,7 +157,7 @@ hscMain flags core_cmds stg_cmds summary maybe_old_iface
     core2core core_cmds desugared rules		>>= \ (simplified, orphan_rules) ->
 
 	-- Do the final tidy-up
-    tidyCorePgm tidy_uniqs this_mod
+    tidyCorePgm this_mod
 		simplified orphan_rules		>>= \ (tidy_binds, tidy_orphan_rules) -> 
 
 	-- Run the occurrence analyser one last time, so that