aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-05-29 03:24:11 +0200
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-05-29 03:24:11 +0200
commitc4f6201356b29023ecbd2f7bf1c91e5318586765 (patch)
treec7cc3b01b75a5aacb3d7cd4fd9ffd47095036110 /src/Haddock
parente110e6e70e40eed06c06676fd2e62578da01d295 (diff)
Revert "Revert "Accomodate change in PatSyn representation""
This reverts commit e110e6e70e40eed06c06676fd2e62578da01d295. Apparently as per GHC commit ac2796e6ddbd54c5762c53e2fcf29f20ea162fd5 this was actually intended. Embarrasing for me.
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Convert.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index 1bf02e3c..f7f3e2bb 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -94,7 +94,7 @@ tyThingToLHsDecl t = noLoc $ case t of
(synifyType ImplicitizeForAll (dataConUserType dc)))
AConLike (PatSynCon ps) ->
- let (_, _, (req_theta, prov_theta)) = patSynSig ps
+ let (_, _, req_theta, prov_theta) = patSynSig ps
in SigD $ PatSynSig (synifyName ps)
(fmap (synifyType WithinType) (patSynTyDetails ps))
(synifyType WithinType (patSynType ps))