diff options
| author | Kazu Yamamoto <kazu@iij.ad.jp> | 2013-02-06 17:56:21 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2013-02-06 17:56:21 +0900 |
| commit | ac12c7041be4898896e4ef9c8d831bf23402c531 (patch) | |
| tree | 81da1ffe84ac3c6b446e0e5c0e2f8f4655714861 | |
| parent | ba8711a3b3bada2a099e9484296cbd04becbdbb4 (diff) | |
Refactoring instanceHead'.
| -rw-r--r-- | 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 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]. |