diff options
| author | sof <unknown> | 1997-06-05 21:21:59 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-06-05 21:21:59 +0000 |
| commit | b65f921eff0bddc7c2953c38da9df858a103e8e8 (patch) | |
| tree | 5ab88a1687bfeddbfb1fde6659dbf4460baf6ff5 | |
| parent | bfaf6cc0f7e0e51dc6ac70ca62edde3fb4c69631 (diff) | |
| download | haskell-b65f921eff0bddc7c2953c38da9df858a103e8e8.tar.gz | |
[project @ 1997-06-05 21:21:59 by sof]
import updates
| -rw-r--r-- | ghc/compiler/basicTypes/Id.lhs | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs index 025472865a..0e4aa066c4 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} |