[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 bf952e3..dd12cd5 100644 (file)
--- a/ghc/compiler/hsSyn/HsExpr.hi-boot-6
+++ b/ghc/compiler/hsSyn/HsExpr.hi-boot-6
@@ -1,12 +1,20 @@
-__interface HsExpr 1 0 where
-__export HsExpr HsExpr pprExpr Match GRHSs pprPatBind pprFunBind ;
+module HsExpr where
 
-1 data HsExpr i p ;
-1 pprExpr :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => HsExpr.HsExpr i p -> Outputable.SDoc ;
+data HsExpr i
+data HsSplice i
+data MatchGroup a
+data GRHSs a
 
-1 data Match a b ;
-1 data GRHSs a b ;
+type LHsExpr a = SrcLoc.Located (HsExpr a)
 
-1 pprPatBind :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => p -> HsExpr.GRHSs i p -> Outputable.SDoc ;
-1 pprFunBind :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => i -> [HsExpr.Match i p] -> Outputable.SDoc ;
+pprExpr :: (Outputable.OutputableBndr i) => 
+       HsExpr.HsExpr i -> 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