[project @ 1996-04-30 17:34:02 by partain]

[ghc-hetmet.git] / ghc / compiler / main / Main.lhs

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index ef89a61..235fb4a 100644 (file)
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -80,7 +80,7 @@ doIt (core_cmds, stg_cmds) input_pgm
 
     -- UniqueSupplies for later use (these are the only lower case uniques)
     mkSplitUniqSupply 'r'      >>= \ rn_uniqs ->       -- renamer
-    mkSplitUniqSupply 't'      >>= \ tc_uniqs ->       -- typechecker
+    mkSplitUniqSupply 'a'      >>= \ tc_uniqs ->       -- typechecker
     mkSplitUniqSupply 'd'      >>= \ ds_uniqs ->       -- desugarer
     mkSplitUniqSupply 's'      >>= \ sm_uniqs ->       -- core-to-core simplifier
     mkSplitUniqSupply 'c'      >>= \ c2s_uniqs ->      -- core-to-stg