X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FType.lhs;h=d63cecc64d288e1a56de2b26ca825a2e5b1d4758;hp=7b77b998a1a97a54de8d2fbfb17fec176338d93c;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/compiler/types/Type.lhs b/ghc/compiler/types/Type.lhs
index 7b77b99..d63cecc 100644
--- a/ghc/compiler/types/Type.lhs
+++ b/ghc/compiler/types/Type.lhs
@@ -64,7 +64,7 @@ import Maybes	( maybeToBool, assocMaybe )
 import PrimRep	( PrimRep(..) )
 import Unique	-- quite a few *Keys
 import Util	( thenCmp, zipEqual, assoc,
-		  panic, panic#, assertPanic,
+		  panic, panic#, assertPanic, pprPanic,
 		  Ord3(..){-instances-}
 		)
 -- ToDo:rm all these
@@ -78,6 +78,7 @@ import Util	( thenCmp, zipEqual, assoc,
 --	UniqFM (ufmToList )
 --import {-mumble-}
 --	Outputable
+--import PprEnv
 \end{code}
 
 Data types
@@ -472,7 +473,7 @@ get_app_data_tycon maybe ty
   = case maybe ty of
       Just stuff -> stuff
 #ifdef DEBUG
-      Nothing    -> panic "Type.getAppDataTyCon" -- (pprGenType PprShowAll ty)
+      Nothing    -> panic "Type.getAppDataTyCon"--  (pprGenType PprShowAll ty)
 #endif