[project @ 2000-10-13 10:26:38 by sewardj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelInfo.lhs

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index fb4bdf8..88bf2f3 100644 (file)
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -49,6 +49,7 @@ import Type           ( funTyCon )
 import Bag
 import BasicTypes      ( Boxity(..) )
 import Util            ( isIn )
+import Outputable      ( ppr, pprPanic )
 \end{code}
 
 %************************************************************************
@@ -75,13 +76,14 @@ wiredInThings
     ]
 
 wiredInNames :: [Name]
-wiredInNames = [n | thing <- wiredInThings, n <- tyThingNames]
-
-tyThingNames :: TyCon -> [Name]
-tyThingNames (AnClass cl) = pprPanic "tyThingNames" (ppr cl)   -- Not used
-tyThingNames (AnId    id) = [getName id]
-tyThingNames (ATyCon  tc) = getName tycon : [ getName n | dc <- tyConDataConsIfAvailable tycon, 
-                                                         n  <- [dataConId dc, dataConWrapId dc] ]
+wiredInNames = [n | thing <- wiredInThings, n <- tyThingNames thing]
+
+tyThingNames :: TyThing -> [Name]
+tyThingNames (AClass cl) = pprPanic "tyThingNames" (ppr cl)    -- Not used
+tyThingNames (AnId   id) = [getName id]
+tyThingNames (ATyCon tc) 
+   = getName tc : [ getName n | dc <- tyConDataConsIfAvailable tc, 
+                                n  <- [dataConId dc, dataConWrapId dc] ]
                                                -- Synonyms return empty list of constructors
 \end{code}