diff options
Diffstat (limited to 'src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 -> [] } |