projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix -fwarn-missing-import-lists (fix Trac #4489)
[ghc-hetmet.git]
/
compiler
/
hsSyn
/
HsExpr.lhs-boot
diff --git
a/compiler/hsSyn/HsExpr.lhs-boot
b/compiler/hsSyn/HsExpr.lhs-boot
index
503701b
..
272bdbd
100644
(file)
--- a/
compiler/hsSyn/HsExpr.lhs-boot
+++ b/
compiler/hsSyn/HsExpr.lhs-boot
@@
-4,15
+4,25
@@
module HsExpr where
import SrcLoc ( Located )
import Outputable ( SDoc, OutputableBndr )
import {-# SOURCE #-} HsPat ( LPat )
import SrcLoc ( Located )
import Outputable ( SDoc, OutputableBndr )
import {-# SOURCE #-} HsPat ( LPat )
+
+import Data.Data
data HsExpr i
data HsSplice i
data MatchGroup a
data GRHSs a
data HsExpr i
data HsSplice i
data MatchGroup a
data GRHSs a
+instance Data i => Data (HsSplice i)
+instance Data i => Data (HsExpr i)
+instance Data i => Data (MatchGroup i)
+instance Data i => Data (GRHSs i)
+
type LHsExpr a = Located (HsExpr a)
type SyntaxExpr a = HsExpr a
type LHsExpr a = Located (HsExpr a)
type SyntaxExpr a = HsExpr a
+pprLExpr :: (OutputableBndr i) =>
+ LHsExpr i -> SDoc
+
pprExpr :: (OutputableBndr i) =>
HsExpr i -> SDoc
pprExpr :: (OutputableBndr i) =>
HsExpr i -> SDoc
@@
-22,6
+32,6
@@
pprSplice :: (OutputableBndr i) =>
pprPatBind :: (OutputableBndr b, OutputableBndr i) =>
LPat b -> GRHSs i -> SDoc
pprPatBind :: (OutputableBndr b, OutputableBndr i) =>
LPat b -> GRHSs i -> SDoc
-pprFunBind :: (OutputableBndr i) =>
- i -> MatchGroup i -> SDoc
+pprFunBind :: (OutputableBndr idL, OutputableBndr idR) =>
+ idL -> Bool -> MatchGroup idR -> SDoc
\end{code}
\end{code}