[commit: haddock] master: Use InstEnv.instanceSig rather than instanceHead (name change) (5b406e3)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5b406e30a7d6e3b594d67b9ee883337c50d3d384

>---------------------------------------------------------------

commit 5b406e30a7d6e3b594d67b9ee883337c50d3d384
Author: Simon Peyton Jones <[email protected]>
Date:   Wed Jan 2 08:33:13 2013 +0000

    Use InstEnv.instanceSig rather than instanceHead (name change)

>---------------------------------------------------------------

 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 86d1a7b..427ef84 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 -> []