diff options
author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2013-09-28 04:50:54 +1000 |
---|---|---|
committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2013-09-28 12:24:30 +1000 |
commit | fd9a9abf106c97cfeff220c9f4087537bf192ef3 (patch) | |
tree | 57fb8ba3e51731836454772ae44445049504b53c /compiler | |
parent | 683f4b7462d67a7c5eed5fb63b60b7b144e15fb9 (diff) | |
download | haskell-fd9a9abf106c97cfeff220c9f4087537bf192ef3.tar.gz |
RnNames.lhs : Reuse existing function.
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/rename/RnNames.lhs | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index c960343435..d8c92eb16b 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1081,11 +1081,8 @@ exports_from_avail (Just rdr_items) rdr_env imports this_mod lookup_ie (IEThingAbs rdr) = do gre <- lookupGreRn rdr let name = gre_name gre - case gre_par gre of - NoParent -> return (IEThingAbs name, - AvailTC name [name]) - ParentIs p -> return (IEThingAbs name, - AvailTC p [name]) + avail = greExportAvail gre + return (IEThingAbs name, avail) lookup_ie ie@(IEThingAll rdr) = do name <- lookupGlobalOccRn rdr @@ -1408,11 +1405,7 @@ extendImportMap rdr_env rdr imp_map add _ avails = avail : avails -- add is really just a specialised (++) decl_loc = srcSpanEnd (is_dloc imp_decl_spec) -- For srcSpanEnd see Note [The ImportMap] - name = gre_name gre - avail = case gre_par gre of - ParentIs p -> AvailTC p [name] - NoParent | isTyConName name -> AvailTC name [name] - | otherwise -> Avail name + avail = greExportAvail gre bestImport :: [ImportSpec] -> ImportSpec bestImport iss |