diff options
| author | sof <unknown> | 1997-06-05 21:21:26 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-06-05 21:21:26 +0000 |
| commit | bfaf6cc0f7e0e51dc6ac70ca62edde3fb4c69631 (patch) | |
| tree | b7679ab0653498884c1d72be4177513730a01889 | |
| parent | 587ae4c26b4f31fa4a83f2ebab8514118b77bf37 (diff) | |
| download | haskell-bfaf6cc0f7e0e51dc6ac70ca62edde3fb4c69631.tar.gz | |
[project @ 1997-06-05 21:20:46 by sof]
imports updated
| -rw-r--r-- | ghc/compiler/basicTypes/IdInfo.lhs | 7 | ||||
| -rw-r--r-- | ghc/compiler/basicTypes/IdUtils.lhs | 5 |
2 files changed, 12 insertions, 0 deletions
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs index e33873b823..0a9ef0e9dd 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 3eb902149b..e607e388b3 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 ) |