From: sof <unknown>
Date: Thu, 5 Jun 1997 21:21:26 +0000 (+0000)
Subject: [project @ 1997-06-05 21:20:46 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~355
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bfaf6cc0f7e0e51dc6ac70ca62edde3fb4c69631;p=ghc-hetmet.git

[project @ 1997-06-05 21:20:46 by sof]
imports updated
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index e33873b..0a9ef0e 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 3eb9021..e607e38 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 )