From ac12c7041be4898896e4ef9c8d831bf23402c531 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 6 Feb 2013 17:56:21 +0900
Subject: Refactoring instanceHead'.

---
 src/Haddock/Interface/AttachInstances.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Interface')

diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index dea01d5f..f4107c63 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].
-- 
cgit v1.2.3