aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-11-28 13:37:59 +0000
committerDavid Waern <david.waern@gmail.com>2009-11-28 13:37:59 +0000
commit70361f06e3ea982a2f56d87501ce31d2f29f7e58 (patch)
tree4dff137c7de31ca95fada5ac9558452801be0742 /src
parent24bd965572dcbd0853aadc3c9a07ce4b41c732e0 (diff)
Remove Name from DocInstance
It's not used.
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Html.hs2
-rw-r--r--src/Haddock/Interface/AttachInstances.hs2
-rw-r--r--src/Haddock/Interface/Rename.hs5
-rw-r--r--src/Haddock/Types.hs2
4 files changed, 5 insertions, 6 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 93c2a491..073dd66a 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1200,7 +1200,7 @@ ppClassDecl _ _ _ _ _ _ _ _ = error "declaration type not supported by ppShortCl
-- an 'argBox'. The comment is printed to the right of the box in normal comment
-- style.
ppDocInstance :: Bool -> DocInstance DocName -> HtmlTable
-ppDocInstance unicode (_, instHead, maybeDoc) =
+ppDocInstance unicode (instHead, maybeDoc) =
argBox (ppInstHead unicode instHead) <-> maybeRDocBox maybeDoc
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index a10cb36a..43f2466d 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -55,7 +55,7 @@ attachInstances ifaces instIfaceMap = mapM attach ifaces
Just (_, _, instances) ->
let insts = map (first synifyInstHead) $ sortImage (first instHead)
[ (instanceHead i, getName i) | i <- instances ]
- in [ (name, inst, lookupInstDoc name iface instIfaceMap)
+ in [ (inst, lookupInstDoc name iface instIfaceMap)
| (inst, name) <- insts ]
Nothing -> []
}
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
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 38a1e130..be326c60 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -40,7 +40,7 @@ import Name
type Decl = LHsDecl Name
type Doc = HsDoc Name
-type DocInstance name = (name, InstHead name, Maybe (HsDoc name))
+type DocInstance name = (InstHead name, Maybe (HsDoc name))
#if __GLASGOW_HASKELL__ <= 610
type HsDocString = HsDoc Name