[project @ 2001-10-25 02:13:10 by sof]

[ghc-hetmet.git] / ghc / compiler / types / PprType.lhs

diff --git a/ghc/compiler/types/PprType.lhs b/ghc/compiler/types/PprType.lhs
index f191fda..22b60bf 100644 (file)
--- a/ghc/compiler/types/PprType.lhs
+++ b/ghc/compiler/types/PprType.lhs
@@ -37,6 +37,7 @@ import Maybes         ( maybeToBool )
 import Name            ( getOccString, getOccName )
 import Outputable
 import Unique          ( Uniquable(..) )
+import Util             ( lengthIs )
 import BasicTypes      ( tupleParens )
 import PrelNames               -- quite a few *Keys
 \end{code}
@@ -136,7 +137,7 @@ ppr_ty ctxt_prec ty@(TyConApp tycon tys)
        
        -- TUPLE CASE (boxed and unboxed)
   |  isTupleTyCon tycon,
-     length tys == tyConArity tycon    -- No magic if partially applied
+      tys `lengthIs` tyConArity tycon  -- No magic if partially applied
   = tupleParens (tupleTyConBoxity tycon)
                (sep (punctuate comma (map (ppr_ty tOP_PREC) tys)))