From 5b406e30a7d6e3b594d67b9ee883337c50d3d384 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 2 Jan 2013 08:33:13 +0000 Subject: Use InstEnv.instanceSig rather than instanceHead (name change) --- src/Haddock/Interface/AttachInstances.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Interface/AttachInstances.hs') 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 -> [] -- cgit v1.2.3