X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FhsSyn%2FHsExpr.hi-boot-6;h=73bbfdefb80ba9f0e211dd4af3a26488f69931fa;hb=387a411e5d6478249de6872c283f2df78ef83bf4;hp=fd32ceb5ed80ec554a6e738acfe4c432199a919e;hpb=b9312420f355a3b6f24f3bd732300d9e03f59268;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsExpr.hi-boot-6 b/ghc/compiler/hsSyn/HsExpr.hi-boot-6
index fd32ceb..73bbfde 100644
--- a/ghc/compiler/hsSyn/HsExpr.hi-boot-6
+++ b/ghc/compiler/hsSyn/HsExpr.hi-boot-6
@@ -1,14 +1,14 @@
 module HsExpr where
 
-data HsExpr i p
-data Match a b
-data GRHSs a b
+data HsExpr i
+data Match a
+data GRHSs a
 
-pprExpr :: (Outputable.Outputable i, Outputable.Outputable p) => 
-	HsExpr.HsExpr i p -> Outputable.SDoc
+pprExpr :: (Outputable.OutputableBndr i) => 
+	HsExpr.HsExpr i -> Outputable.SDoc
 
-pprPatBind :: (Outputable.Outputable i, Outputable.Outputable p) => 
-	p -> HsExpr.GRHSs i p -> Outputable.SDoc
+pprPatBind :: (Outputable.OutputableBndr i) => 
+	HsPat.Pat i -> HsExpr.GRHSs i -> Outputable.SDoc
 
-pprFunBind :: (Outputable.Outputable i, Outputable.Outputable p) => 
-	i -> [HsExpr.Match i p] -> Outputable.SDoc
+pprFunBind :: (Outputable.OutputableBndr i) => 
+	i -> [HsExpr.Match i] -> Outputable.SDoc