[commit: haddock] ghc-7.8, wip/pattern-synonym-sig-backport: Revert "Accomodate change in PatSyn representation" (87a6eed)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branches: ghc-7.8,wip/pattern-synonym-sig-backport
Link       : http://git.haskell.org/haddock.git/commitdiff/87a6eed7f0d4e646c424a6c0a94b19f2c3d56666

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

commit 87a6eed7f0d4e646c424a6c0a94b19f2c3d56666
Author: Austin Seipp <austin at well-typed.com>
Date:   Mon Jun 23 04:25:01 2014 -0500

    Revert "Accomodate change in PatSyn representation"
    
    This reverts commit e56a8037c04a32922cb0951c66f64ecc6ebfecb3.


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

87a6eed7f0d4e646c424a6c0a94b19f2c3d56666
 src/Haddock/Convert.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index f7f3e2b..1bf02e3 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))