projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b49dd18
)
[project @ 1997-05-26 04:37:33 by sof]
author
sof
<unknown>
Mon, 26 May 1997 04:37:33 +0000
(
04:37
+0000)
committer
sof
<unknown>
Mon, 26 May 1997 04:37:33 +0000
(
04:37
+0000)
Updated imports
ghc/compiler/hsSyn/HsMatches.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/hsSyn/HsMatches.lhs
b/ghc/compiler/hsSyn/HsMatches.lhs
index
ef370e3
..
d4f4cae
100644
(file)
--- a/
ghc/compiler/hsSyn/HsMatches.lhs
+++ b/
ghc/compiler/hsSyn/HsMatches.lhs
@@
-12,15
+12,19
@@
module HsMatches where
IMP_Ubiq(){-uitous-}
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 PprType ( GenType{-instance Outputable-} )
import Pretty
import SrcLoc ( SrcLoc{-instances-} )
import Util ( panic )
+import Outputable ( Outputable(..) )
#if __GLASGOW_HASKELL__ >= 202
import Name
#if __GLASGOW_HASKELL__ >= 202
import Name
-import PprStyle
#endif
\end{code}
#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)
pprGRHSsAndBinds sty is_case (GRHSsAndBindsIn grhss binds)
= ($$) (vcat (map (pprGRHS sty is_case) grhss))
(if (nullBinds binds)