[project @ 2004-11-18 00:56:18 by igloo]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsExpr.hi-boot-6

diff --git a/ghc/compiler/hsSyn/HsExpr.hi-boot-6 b/ghc/compiler/hsSyn/HsExpr.hi-boot-6
index fd32ceb..dd12cd5 100644 (file)
--- a/ghc/compiler/hsSyn/HsExpr.hi-boot-6
+++ b/ghc/compiler/hsSyn/HsExpr.hi-boot-6
@@ -1,14 +1,20 @@
 module HsExpr where
 
-data HsExpr i p
-data Match a b
-data GRHSs a b
+data HsExpr i
+data HsSplice i
+data MatchGroup a
+data GRHSs a
 
-pprExpr :: (Outputable.Outputable i, Outputable.Outputable p) => 
-       HsExpr.HsExpr i p -> Outputable.SDoc
+type LHsExpr a = SrcLoc.Located (HsExpr a)
 
-pprPatBind :: (Outputable.Outputable i, Outputable.Outputable p) => 
-       p -> HsExpr.GRHSs i p -> Outputable.SDoc
+pprExpr :: (Outputable.OutputableBndr i) => 
+       HsExpr.HsExpr i -> Outputable.SDoc
 
-pprFunBind :: (Outputable.Outputable i, Outputable.Outputable p) => 
-       i -> [HsExpr.Match i p] -> Outputable.SDoc
+pprSplice :: (Outputable.OutputableBndr i) => 
+       HsExpr.HsSplice i -> Outputable.SDoc
+
+pprPatBind :: (Outputable.OutputableBndr b, Outputable.OutputableBndr i) => 
+       HsPat.LPat b -> HsExpr.GRHSs i -> Outputable.SDoc
+
+pprFunBind :: (Outputable.OutputableBndr i) => 
+       i -> HsExpr.MatchGroup i -> Outputable.SDoc