Commit 1bda1b2e authored by sof's avatar sof
Browse files

[project @ 1997-05-26 04:37:33 by sof]

Updated imports
parent b49dd184
......@@ -12,15 +12,19 @@ module HsMatches where
IMP_Ubiq(){-uitous-}
IMPORT_DELOOPER(HsLoop) ( HsExpr, Stmt, nullBinds, HsBinds )
import Outputable --( ifPprShowAll )
-- Friends
import HsExpr ( HsExpr, Stmt )
import HsBinds ( HsBinds, nullBinds )
-- Others
import Outputable ( ifPprShowAll, PprStyle )
import PprType ( GenType{-instance Outputable-} )
import Pretty
import SrcLoc ( SrcLoc{-instances-} )
import Util ( panic )
import Outputable ( Outputable(..) )
#if __GLASGOW_HASKELL__ >= 202
import Name
import PprStyle
#endif
\end{code}
......@@ -130,6 +134,10 @@ pprMatch sty is_case first_match
----------------------------------------------------------
pprGRHSsAndBinds :: (NamedThing id, Outputable id, Outputable pat,
Eq tyvar, Outputable tyvar, Eq uvar, Outputable uvar) =>
PprStyle -> Bool -> GRHSsAndBinds tyvar uvar id pat -> Doc
pprGRHSsAndBinds sty is_case (GRHSsAndBindsIn grhss binds)
= ($$) (vcat (map (pprGRHS sty is_case) grhss))
(if (nullBinds binds)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment