[project @ 2000-05-24 10:50:10 by simonmar]

don't use underscores in type variable names

diff --git a/ghc/compiler/hsSyn/HsExpr.hi-boot-5 b/ghc/compiler/hsSyn/HsExpr.hi-boot-5
index 03f8d70..bf7cb53 100644 (file)
--- a/ghc/compiler/hsSyn/HsExpr.hi-boot-5
+++ b/ghc/compiler/hsSyn/HsExpr.hi-boot-5
@@ -1,4 +1,4 @@
 __interface HsExpr 1 0 where
 __export HsExpr HsExpr pprExpr;
 1 data HsExpr i p ;
-1 pprExpr :: __forall [_i _p] {Outputable.Outputable _i, Outputable.Outputable _p} => HsExpr.HsExpr _i _p -> Outputable.SDoc ;
+1 pprExpr :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => HsExpr.HsExpr i p -> Outputable.SDoc ;

diff --git a/ghc/compiler/hsSyn/HsMatches.hi-boot-5 b/ghc/compiler/hsSyn/HsMatches.hi-boot-5
index 4ef667f..54e15e5 100644 (file)
--- a/ghc/compiler/hsSyn/HsMatches.hi-boot-5
+++ b/ghc/compiler/hsSyn/HsMatches.hi-boot-5
@@ -3,5 +3,5 @@ __export HsMatches Match GRHSs pprMatch pprMatches pprGRHSs ;
 1 data Match a b ;
 1 data GRHSs a b ;
 1 pprGRHSs :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => PrelBase.Bool -> HsMatches.GRHSs i p -> Outputable.SDoc ;
-1 pprMatch :: __forall [_i _p] {Outputable.Outputable _i, Outputable.Outputable _p} => (PrelBase.Bool, Outputable.SDoc) -> HsMatches.Match _i _p -> Outputable.SDoc ;
-1 pprMatches :: __forall [_i _p] {Outputable.Outputable _i, Outputable.Outputable _p} => (PrelBase.Bool, Outputable.SDoc) -> [HsMatches.Match _i _p] -> Outputable.SDoc ;
+1 pprMatch :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => (PrelBase.Bool, Outputable.SDoc) -> HsMatches.Match i p -> Outputable.SDoc ;
+1 pprMatches :: __forall [i p] {Outputable.Outputable i, Outputable.Outputable p} => (PrelBase.Bool, Outputable.SDoc) -> [HsMatches.Match i p] -> Outputable.SDoc ;