Accomodate change in PatSyn representation

haskell · May 25, 2014 · 57aa591 · 57aa591
1 parent 4b1f57e
commit 57aa591
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))