aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/AttachInstances.hs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2013-01-02 08:33:13 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2013-01-02 08:33:13 +0000
commit5b406e30a7d6e3b594d67b9ee883337c50d3d384 (patch)
treecd5aba0010999834f4f365216a36afeb3003bfeb /src/Haddock/Interface/AttachInstances.hs
parent47be31308f5c90c4ae5e78252989c7da70b46e70 (diff)
Use InstEnv.instanceSig rather than instanceHead (name change)
Diffstat (limited to 'src/Haddock/Interface/AttachInstances.hs')
-rw-r--r--src/Haddock/Interface/AttachInstances.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index 86d1a7b8..427ef84d 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -60,7 +60,7 @@ attachToExportItem iface ifaceMap instIfaceMap export =
case mb_info of
Just (_, _, instances) ->
let insts = map (first synifyInstHead) $ sortImage (first instHead)
- [ (instanceHead i, getName i) | i <- instances ]
+ [ (instanceSig i, getName i) | i <- instances ]
in [ (inst, lookupInstDoc name iface ifaceMap instIfaceMap)
| (inst, name) <- insts ]
Nothing -> []