[project @ 1998-12-18 17:40:31 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stgSyn / StgLint.lhs

diff --git a/ghc/compiler/stgSyn/StgLint.lhs b/ghc/compiler/stgSyn/StgLint.lhs
index 6c7fb4a..b09252d 100644 (file)
--- a/ghc/compiler/stgSyn/StgLint.lhs
+++ b/ghc/compiler/stgSyn/StgLint.lhs
@@ -22,7 +22,7 @@ import Type           ( mkFunTys, splitFunTys, splitAlgTyConApp_maybe,
                          isUnLiftedType, isTyVarTy, Type
                        )
 import TyCon           ( TyCon, isDataTyCon )
-import Util            ( zipEqual, trace )
+import Util            ( zipEqual )
 import Outputable
 
 infixr 9 `thenL`, `thenL_`, `thenMaybeL`, `thenMaybeL_`
@@ -276,7 +276,7 @@ pp_binders bs
   = sep (punctuate comma (map pp_binder bs))
   where
     pp_binder b
-      = hsep [ppr b, ptext SLIT("::"), ppr (idType b)]
+      = hsep [ppr b, dcolon, ppr (idType b)]
 \end{code}
 
 \begin{code}