Commit 055a40ad authored by simonpj's avatar simonpj

[project @ 2003-10-09 13:17:09 by simonpj]

Enable crudePprType without DEBUG
parent 576650d4
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment