From e185f5ae9c9470b861916aa96933fa72cd703a4e Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 30 Aug 2007 16:30:37 +0000 Subject: Rename HaddockModule to Interface --- src/Haddock/Interface.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Haddock/Interface.hs') diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index b8ee4fe4..e548f500 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -53,7 +53,7 @@ createInterfaces' modules flags = do addInterface :: ModuleMap -> GhcModule -> ErrMsgM ModuleMap addInterface map mod = do interface <- createInterface mod flags map - return $ Map.insert (hmod_mod interface) interface map + return $ Map.insert (ifaceMod interface) interface map renameInterfaces :: [Interface] -> LinkEnv -> ErrMsgM ([Interface], LinkEnv) @@ -76,13 +76,13 @@ buildHomeLinks :: [Interface] -> LinkEnv buildHomeLinks modules = foldl upd Map.empty (reverse modules) where upd old_env mod - | OptHide `elem` hmod_options mod = old_env - | OptNotHome `elem` hmod_options mod = + | OptHide `elem` ifaceOptions mod = old_env + | OptNotHome `elem` ifaceOptions mod = foldl' keep_old old_env exported_names | otherwise = foldl' keep_new old_env exported_names where - exported_names = hmod_visible_exports mod - modName = hmod_mod mod + exported_names = ifaceVisibleExports mod + modName = ifaceMod mod keep_old env n = Map.insertWith (\new old -> old) n (nameSetMod n modName) env -- cgit v1.2.3