%
+% (c) The University of Glasgow 2006
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
\section[PatSyntax]{Abstract Haskell syntax---patterns}
import {-# SOURCE #-} HsExpr ( SyntaxExpr )
-- friends:
-import HsBinds ( DictBinds, HsBind(..), HsWrapper, isIdHsWrapper, pprHsWrapper,
- emptyLHsBinds, pprLHsBinds )
-import HsLit ( HsLit(HsCharPrim), HsOverLit )
-import HsTypes ( LHsType, PostTcType )
-import HsDoc ( LHsDoc, ppr_mbDoc )
-import BasicTypes ( Boxity, tupleParens )
+import HsBinds
+import HsLit
+import HsTypes
+import HsDoc
+import BasicTypes
-- others:
import PprCore ( {- instance OutputableBndr TyVar -} )
-import TysWiredIn ( nilDataCon, charDataCon, charTy )
-import Var ( TyVar )
-import DataCon ( DataCon, dataConTyCon )
-import TyCon ( isProductTyCon )
+import TysWiredIn
+import Var
+import DataCon
+import TyCon
import Outputable
-import Type ( Type )
-import SrcLoc ( Located(..), unLoc, noLoc )
+import Type
+import SrcLoc
\end{code}
pprConArgs (InfixCon p1 p2) = interppSP [p1,p2]
pprConArgs (RecCon rpats) = braces (hsep (punctuate comma (map (pp_rpat) rpats)))
where
- pp_rpat (HsRecField v p d) =
- hsep [ppr d, ppr v, char '=', ppr p]
+ pp_rpat (HsRecField v p _d) =
+ hsep [ppr v, char '=', ppr p]
-- add parallel array brackets around a document
--