diff options
| -rw-r--r-- | ghc/compiler/types/TypeRep.lhs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ghc/compiler/types/TypeRep.lhs b/ghc/compiler/types/TypeRep.lhs index 1c74dc1b3e..dce606f763 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 |