[project @ 2001-06-11 12:24:51 by simonpj]

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

diff --git a/ghc/compiler/hsSyn/HsExpr.hi-boot b/ghc/compiler/hsSyn/HsExpr.hi-boot
index f27e26c..2341419 100644 (file)
--- a/ghc/compiler/hsSyn/HsExpr.hi-boot
+++ b/ghc/compiler/hsSyn/HsExpr.hi-boot
@@ -1,11 +1,11 @@
 _interface_ HsExpr 1
 _exports_
-HsExpr HsExpr Stmt;
-_instances_
-instance _forall_ [a b c d] => {Outputable.Outputable (HsExpr a b c d)} = $d1;
-instance _forall_ [a b c d] => {Outputable.Outputable (Stmt a b c d)} = $d2;
+HsExpr HsExpr pprExpr Match GRHSs pprFunBind pprPatBind ;
 _declarations_
-1 $d1 _:_ _forall_ [a b c d] => {Outputable.Outputable (HsExpr a b c d)} ;;
-1 $d2 _:_ _forall_ [a b c d] => {Outputable.Outputable (Stmt a b c d)} ;;
-1 data HsExpr a b c d;
-1 data Stmt a b c d;
+1 data HsExpr i p;
+1 pprExpr _:_ _forall_ [i p] {Outputable.Outputable i, Outputable.Outputable p} => HsExpr.HsExpr i p -> Outputable.SDoc ;;
+
+1 data Match a b ;
+1 data GRHSs a b ;
+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 ;;