diff options
| author | David Waern <david.waern@gmail.com> | 2009-11-28 13:37:59 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-11-28 13:37:59 +0000 |
| commit | 70361f06e3ea982a2f56d87501ce31d2f29f7e58 (patch) | |
| tree | 4dff137c7de31ca95fada5ac9558452801be0742 /src/Haddock/Interface/Rename.hs | |
| parent | 24bd965572dcbd0853aadc3c9a07ce4b41c732e0 (diff) | |
Remove Name from DocInstance
It's not used.
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 308c86c5..48a14d23 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -453,11 +453,10 @@ renameExportItem item = case item of decl' <- renameLDecl decl doc' <- renameDocForDecl doc subs' <- mapM renameSub subs - instances' <- forM instances $ \(name, inst, idoc) -> do - name' <- rename name + instances' <- forM instances $ \(inst, idoc) -> do inst' <- renameInstHead inst idoc' <- mapM renameDoc idoc - return (name', inst', idoc') + return (inst', idoc') return (ExportDecl decl' doc' subs' instances') ExportNoDecl x subs -> do x' <- lookupRn id x |