From: simonpj <unknown>
Date: Thu, 9 Oct 2003 13:17:09 +0000 (+0000)
Subject: [project @ 2003-10-09 13:17:09 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~383
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=055a40adee30885bdb7340d9fbfe9770a9036412;p=ghc-hetmet.git

[project @ 2003-10-09 13:17:09 by simonpj]
Enable crudePprType without DEBUG
---

diff --git a/ghc/compiler/types/TypeRep.lhs b/ghc/compiler/types/TypeRep.lhs
index 1c74dc1..dce606f 100644
--- a/ghc/compiler/types/TypeRep.lhs
+++ b/ghc/compiler/types/TypeRep.lhs
@@ -19,10 +19,9 @@ module TypeRep (
 	liftedTypeKind, unliftedTypeKind, openTypeKind,	-- :: KX
 	mkArrowKind, mkArrowKinds,			-- :: KX -> KX -> KX
 
-	funTyCon
-#ifdef DEBUG
-	, crudePprType
-#endif
+	funTyCon,
+
+	crudePprType		-- Prints type representations for debugging
     ) where
 
 #include "HsVersions.h"
@@ -408,7 +407,6 @@ funTyConName = mkWiredInName gHC_PRIM
 %************************************************************************
 
 \begin{code}
-#ifdef DEBUG
 crudePprType :: Type -> SDoc
 crudePprType (TyVarTy tv)      = ppr tv
 crudePprType (AppTy t1 t2)     = crudePprType t1 <+> (parens (crudePprType t2))
@@ -430,5 +428,4 @@ ppr_tc_app tc tys = tc <+> sep (map (parens . crudePprType) tys)
 
 pp_nt tc | isNewTyCon tc = ptext SLIT("(nt)")
 	 | otherwise     = empty
-#endif
 \end{code}
\ No newline at end of file