[clean up code a bit
John Meacham <john@repetae.net>**20061123032401] hunk ./FrontEnd/Tc/Module.hs 112
-    let importVarEnv = Map.fromList [ (x,y) | (x,y) <- Map.toList $ hoAssumps me, nameType x == Name.Val ]
-        importDConsEnv = Map.fromList [ (x,y) | (x,y) <- Map.toList $ hoAssumps me, nameType x ==  Name.DataConstructor ]
-        importClassHierarchy = hoClassHierarchy me
+--    let importVarEnv = Map.fromList [ (x,y) | (x,y) <- Map.toList $ hoAssumps me, nameType x == Name.Val ]
+--        importDConsEnv = Map.fromList [ (x,y) | (x,y) <- Map.toList $ hoAssumps me, nameType x ==  Name.DataConstructor ]
+    let importClassHierarchy = hoClassHierarchy me
hunk ./FrontEnd/Tc/Module.hs 154
-    let globalDConsEnv = localDConsEnv `Map.union` importDConsEnv
+    --let globalDConsEnv = localDConsEnv `Map.union` importDConsEnv
hunk ./FrontEnd/Tc/Module.hs 217
+    when (dump FD.AllTypes) $ do
+        putStrLn "  ---- all types ---- "
+        putStrLn $ PPrint.render $ pprintEnvMap (sigEnv `mappend` localDConsEnv `mappend` hoAssumps me)
+
hunk ./FrontEnd/Tc/Module.hs 226
-        tcInfoEnv = (importVarEnv `mappend` globalDConsEnv),
+        tcInfoEnv = hoAssumps me `mappend` localDConsEnv, -- (importVarEnv `mappend` globalDConsEnv),