From: sof <unknown>
Date: Mon, 26 May 1997 05:05:37 +0000 (+0000)
Subject: [project @ 1997-05-26 05:05:37 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~470
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3e681c8f62847c6591e5a7ee1b816d162c14747;hp=07b2ea4725a4fef7558fe9e07e2fb16d9e66784f;p=ghc-hetmet.git

[project @ 1997-05-26 05:05:37 by sof]
Added pprId, removed use of instance
---

diff --git a/ghc/compiler/basicTypes/Id.hi-boot b/ghc/compiler/basicTypes/Id.hi-boot
index 8c1d44f..6473716 100644
--- a/ghc/compiler/basicTypes/Id.hi-boot
+++ b/ghc/compiler/basicTypes/Id.hi-boot
@@ -1,10 +1,10 @@
 _interface_ Id 1
 _exports_
-Id Id GenId StrictnessMark(MarkedStrict NotMarkedStrict) dataConArgTys idType isNullaryDataCon mkDataCon mkTupleCon nmbrId;
-_instances_
-instance {Outputable.Outputable Id} = $d1;
+Id Id GenId StrictnessMark(MarkedStrict NotMarkedStrict) dataConArgTys idType isNullaryDataCon mkDataCon mkTupleCon nmbrId pprId;
+-- _instances_
+-- instance {Outputable.Outputable Id} = $d4;
 _declarations_
-1 $d1 _:_ {Outputable.Outputable Id} ;;
+-- 1 $4 _:_ {Outputable.Outputable Id} ;;
 1 type Id = Id.GenId Type.Type ;
 1 data GenId ty ;
 1 data StrictnessMark = MarkedStrict | NotMarkedStrict ;
@@ -14,4 +14,4 @@ _declarations_
 1 mkDataCon _:_ Name.Name -> [StrictnessMark] -> [FieldLabel.FieldLabel] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [TyVar.TyVar] -> [(Class.Class,Type.Type)] -> [Type.Type] -> TyCon.TyCon -> Id ;;
 1 mkTupleCon _:_ PrelBase.Int -> Name.Name -> Type.Type -> Id ;;
 1 nmbrId _:_ Id -> PprEnv.NmbrEnv -> (PprEnv.NmbrEnv, Id) ;;
-
+1 pprId _:_ _forall_ [ty] {Outputable.Outputable ty} => Outputable.PprStyle -> GenId ty -> Pretty.Doc ;;