[commit: haddock] master: Refactoring instanceHead'. (ac12c70)

[Simon Hengel]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ac12c7041be4898896e4ef9c8d831bf23402c531

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

commit ac12c7041be4898896e4ef9c8d831bf23402c531
Author: Kazu Yamamoto <kazu at iij.ad.jp>
Date:   Wed Feb 6 17:56:21 2013 +0900

    Refactoring instanceHead'.

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

 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 dea01d5..f4107c6 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -106,7 +106,7 @@ instanceHead' ispec = (tvs, dropSilentArgs dfun theta, cls, tys)
   where
     dfun = is_dfun ispec
     (tvs, cls, tys) = instanceHead ispec
-    (_, theta, _) = tcSplitSigmaTy . idType . is_dfun $ ispec
+    (_, theta, _) = tcSplitSigmaTy (idType dfun)
 
 -- | Drop "silent" arguments. See GHC Note [Silent superclass
 -- arguments].