diff options
| author | simonpj <unknown> | 2003-10-09 13:17:09 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2003-10-09 13:17:09 +0000 |
| commit | 055a40adee30885bdb7340d9fbfe9770a9036412 (patch) | |
| tree | 5f0da223dd772bb2c3df43c30a83aa663c324de4 /ghc/compiler/types/TypeRep.lhs | |
| parent | 576650d4966549866ad2d07d618f99c9a0c7529d (diff) | |
| download | haskell-055a40adee30885bdb7340d9fbfe9770a9036412.tar.gz | |
[project @ 2003-10-09 13:17:09 by simonpj]
Enable crudePprType without DEBUG
Diffstat (limited to 'ghc/compiler/types/TypeRep.lhs')
| -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 |