diff options
| author | David Waern <david.waern@gmail.com> | 2009-01-02 21:38:27 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-01-02 21:38:27 +0000 |
| commit | ca90e10eab9c938f211ce5e83ae0e8c15222a958 (patch) | |
| tree | b9064bab6933addfe2df86e0f72277f63c5a86dd /src/Haddock/Interface/Rename.hs | |
| parent | 422366027d23ed1d57902adaa9360e386fb6ae7c (diff) | |
Show re-exported names from external packages again
This fixes GHC ticket 2746.
In order to also link to the exported subordinate names of a declaration, we
need to re-introduce the sub map in the .haddock files.
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 3eb52d8f..3e4f6fbc 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -405,10 +405,10 @@ renameExportItem item = case item of subs' <- mapM renameSub subs instances' <- mapM renameInstHead instances return (ExportDecl decl' doc' subs' instances') - ExportNoDecl x y subs -> do - y' <- lookupRn id y + ExportNoDecl x subs -> do + x' <- lookupRn id x subs' <- mapM (lookupRn id) subs - return (ExportNoDecl x y' subs') + return (ExportNoDecl x' subs') ExportDoc doc -> do doc' <- renameDoc doc return (ExportDoc doc') |