Split the Id related functions out from Var into Id, document Var and some of Id

[ghc-hetmet.git] / compiler / hsSyn / HsDecls.lhs

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 3a615f0..a6dc19e 100644 (file)
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -43,11 +43,9 @@ import {-# SOURCE #-}        HsExpr( HsExpr, pprExpr )
 
 import HsBinds
 import HsPat
-import HsImpExp
 import HsTypes
 import HsDoc
 import NameSet
-import CoreSyn
 import {- Kind parts of -} Type
 import BasicTypes
 import ForeignCall
@@ -712,7 +710,7 @@ pprConDecl :: OutputableBndr name => ConDecl name -> SDoc
 pprConDecl (ConDecl con expl tvs cxt details ResTyH98 doc)
   = sep [ppr_mbDoc doc, pprHsForAll expl tvs cxt, ppr_details con details]
   where
-    ppr_details con (InfixCon t1 t2) = hsep [ppr t1, pprHsVar con, ppr t2]
+    ppr_details con (InfixCon t1 t2) = hsep [ppr t1, pprHsInfix con, ppr t2]
     ppr_details con (PrefixCon tys)  = hsep (pprHsVar con : map ppr tys)
     ppr_details con (RecCon fields)  = ppr con <+> ppr_fields fields