projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-10-28 13:15:58 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
types
/
TypeRep.lhs
diff --git
a/ghc/compiler/types/TypeRep.lhs
b/ghc/compiler/types/TypeRep.lhs
index
1c74dc1
..
dce606f
100644
(file)
--- 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
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"
) where
#include "HsVersions.h"
@@
-408,7
+407,6
@@
funTyConName = mkWiredInName gHC_PRIM
%************************************************************************
\begin{code}
%************************************************************************
\begin{code}
-#ifdef DEBUG
crudePprType :: Type -> SDoc
crudePprType (TyVarTy tv) = ppr tv
crudePprType (AppTy t1 t2) = crudePprType t1 <+> (parens (crudePprType t2))
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
pp_nt tc | isNewTyCon tc = ptext SLIT("(nt)")
| otherwise = empty
-#endif
\end{code}
\ No newline at end of file
\end{code}
\ No newline at end of file