From b1c47e7b2926642ad12b44aa97c6d05359c3edc7 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 20:41:01 +0000
Subject: [PATCH] [project @ 1997-06-05 20:39:47 by sof] updated imports
---
ghc/compiler/prelude/PrelInfo.lhs | 2 +-
ghc/compiler/prelude/PrelVals.lhs | 11 ++++++++++-
ghc/compiler/prelude/TysWiredIn.lhs | 9 ++++++++-
3 files changed, 19 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 665aa92da1e4..37de70cbd691 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -34,12 +34,12 @@ module PrelInfo (
) where
IMP_Ubiq()
+
#if __GLASGOW_HASKELL__ >= 202
import IdUtils ( primOpName )
#else
IMPORT_DELOOPER(PrelLoop) ( primOpName )
#endif
--- IMPORT_DELOOPER(IdLoop) ( SpecEnv )
-- friends:
import PrelMods -- Prelude module names
diff --git a/ghc/compiler/prelude/PrelVals.lhs b/ghc/compiler/prelude/PrelVals.lhs
index 5cea8884aa9b..f223311cf6ed 100644
--- a/ghc/compiler/prelude/PrelVals.lhs
+++ b/ghc/compiler/prelude/PrelVals.lhs
@@ -9,9 +9,18 @@
module PrelVals where
IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(IdLoop) ( UnfoldingGuidance(..), mkUnfolding, nullSpecEnv, SpecEnv )
-import Id ( SYN_IE(Id), GenId, mkImported, mkTemplateLocals )
+#else
+import {-# SOURCE #-} CoreUnfold ( UnfoldingGuidance(..), mkUnfolding )
+import {-# SOURCE #-} SpecEnv ( SpecEnv, nullSpecEnv )
+#endif
+
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(PrelLoop)
+#endif
+
+import Id ( SYN_IE(Id), GenId, mkImported, mkTemplateLocals )
-- friends:
import PrelMods
diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index 59241ac37dfb..3e3a71bf579a 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -86,10 +86,17 @@ module TysWiredIn (
--import Kind
IMP_Ubiq()
-IMPORT_DELOOPER(TyLoop) --( mkDataCon, mkTupleCon, StrictnessMark(..) )
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
+IMPORT_DELOOPER(TyLoop) ( mkDataCon, mkTupleCon, StrictnessMark(..) )
IMPORT_DELOOPER(IdLoop) ( SpecEnv, nullSpecEnv,
mkTupleCon, mkDataCon,
StrictnessMark(..) )
+#else
+import {-# SOURCE #-} Id ( Id, mkDataCon, mkTupleCon, StrictnessMark(..) )
+import {-# SOURCE #-} SpecEnv ( SpecEnv, nullSpecEnv )
+import {-# SOURCE #-} Type ( Type )
+import {-# SOURCE #-} TyVar ( TyVar )
+#endif
-- friends:
import PrelMods
--
GitLab