diff options
| -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]. |