[project @ 2005-05-03 10:53:00 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / RdrName.lhs

diff --git a/ghc/compiler/basicTypes/RdrName.lhs b/ghc/compiler/basicTypes/RdrName.lhs
index 2dca6a0..888d845 100644 (file)
--- a/ghc/compiler/basicTypes/RdrName.lhs
+++ b/ghc/compiler/basicTypes/RdrName.lhs
@@ -27,7 +27,8 @@ module RdrName (
 
        -- GlobalRdrEnv
        GlobalRdrEnv, emptyGlobalRdrEnv, mkGlobalRdrEnv, plusGlobalRdrEnv, 
-       lookupGlobalRdrEnv, pprGlobalRdrEnv, globalRdrEnvElts,
+       lookupGlobalRdrEnv, extendGlobalRdrEnv,
+       pprGlobalRdrEnv, globalRdrEnvElts,
        lookupGRE_RdrName, lookupGRE_Name,
 
        -- GlobalRdrElt, Provenance, ImportSpec
@@ -343,6 +344,12 @@ lookupGlobalRdrEnv env rdr_name = case lookupOccEnv env rdr_name of
                                        Nothing   -> []
                                        Just gres -> gres
 
+extendGlobalRdrEnv :: GlobalRdrEnv -> GlobalRdrElt -> GlobalRdrEnv
+extendGlobalRdrEnv env gre = extendOccEnv_C add env occ [gre]
+  where
+    occ = nameOccName (gre_name gre)
+    add gres _ = gre:gres
+
 lookupGRE_RdrName :: RdrName -> GlobalRdrEnv -> [GlobalRdrElt]
 lookupGRE_RdrName rdr_name env
   = case lookupOccEnv env occ of