From bfaf6cc0f7e0e51dc6ac70ca62edde3fb4c69631 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 21:21:26 +0000
Subject: [PATCH] [project @ 1997-06-05 21:20:46 by sof] imports updated
---
ghc/compiler/basicTypes/IdInfo.lhs | 7 +++++++
ghc/compiler/basicTypes/IdUtils.lhs | 5 +++++
2 files changed, 12 insertions(+)
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index e33873b8235f..0a9ef0e9dde9 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -51,10 +51,17 @@ module IdInfo (
IMP_Ubiq()
IMPORT_1_3(Char(toLower))
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(IdLoop) -- IdInfo is a dependency-loop ranch, and
-- we break those loops by using IdLoop and
-- *not* importing much of anything else,
-- except from the very general "utils".
+#else
+import {-# SOURCE #-} SpecEnv
+import {-# SOURCE #-} Id
+import {-# SOURCE #-} CoreUnfold
+import {-# SOURCE #-} StdIdInfo
+#endif
import Type ( eqSimpleTy, splitFunTyExpandingDicts )
import BasicTypes ( NewOrData )
diff --git a/ghc/compiler/basicTypes/IdUtils.lhs b/ghc/compiler/basicTypes/IdUtils.lhs
index 3eb902149b03..e607e388b321 100644
--- a/ghc/compiler/basicTypes/IdUtils.lhs
+++ b/ghc/compiler/basicTypes/IdUtils.lhs
@@ -9,8 +9,13 @@
module IdUtils ( primOpName ) where
IMP_Ubiq()
+
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(PrelLoop) -- here for paranoia checking
IMPORT_DELOOPER(IdLoop) (SpecEnv)
+#else
+import {-# SOURCE #-} SpecEnv ( SpecEnv )
+#endif
import CoreSyn
import CoreUnfold ( UnfoldingGuidance(..), Unfolding, mkUnfolding )
--
GitLab