[commit: haddock] ghc-7.8, wip/T9023, wip/pattern-synonym-sig-backport: Accomodate change in PatSyn representation (e56a803)

[git at git.haskell.org]

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

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

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

commit e56a8037c04a32922cb0951c66f64ecc6ebfecb3
Author: Dr. ERDI Gergo <gergo at erdi.hu>
Date:   Sun May 25 10:39:12 2014 +0800

    Accomodate change in PatSyn representation
    
    (cherry picked from commit 57aa591362d7c8ba21285fccd6a958629a422091)


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

e56a8037c04a32922cb0951c66f64ecc6ebfecb3
 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 1bf02e3..f7f3e2b 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))