From b65f921eff0bddc7c2953c38da9df858a103e8e8 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 21:21:59 +0000
Subject: [PATCH] [project @ 1997-06-05 21:21:59 by sof] import updates
---
ghc/compiler/basicTypes/Id.lhs | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 025472865ad2..0e4aa066c4aa 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -146,9 +146,21 @@ module Id (
IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(IdLoop) -- for paranoia checking
IMPORT_DELOOPER(TyLoop) -- for paranoia checking
-
+#else
+import {-# SOURCE #-} SpecEnv ( SpecEnv )
+import {-# SOURCE #-} CoreUnfold ( Unfolding )
+import {-# SOURCE #-} StdIdInfo ( addStandardIdInfo )
+-- Let's see how much we can leave out..
+--import {-# SOURCE #-} TyCon
+--import {-# SOURCE #-} Type
+--import {-# SOURCE #-} Class
+--import {-# SOURCE #-} TysWiredIn
+--import {-# SOURCE #-} TysPrim
+--import {-# SOURCE #-} TyVar
+#endif
import Bag
import Class ( classOpString, SYN_IE(Class), GenClass, SYN_IE(ClassOp), GenClassOp )
@@ -965,7 +977,7 @@ getPragmaInfo (Id _ _ _ _ info _) = info
replaceIdInfo :: Id -> IdInfo -> Id
replaceIdInfo (Id u n ty details pinfo _) info = Id u n ty details pinfo info
-replacePragmaInfo :: Id -> PragmaInfo -> Id
+replacePragmaInfo :: GenId ty -> PragmaInfo -> GenId ty
replacePragmaInfo (Id u sn ty details _ info) prag = Id u sn ty details prag info
\end{code}
--
GitLab