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 <simo...@microsoft.com>
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 -> []



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to