From 055a40adee30885bdb7340d9fbfe9770a9036412 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 9 Oct 2003 13:17:09 +0000
Subject: [PATCH] [project @ 2003-10-09 13:17:09 by simonpj] Enable
 crudePprType without DEBUG

---
 ghc/compiler/types/TypeRep.lhs |    9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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
-- 
1.7.10.4