Permalink
Browse files

Accomodate change in PatSyn representation

(cherry picked from commit 57aa591)
  • Loading branch information...
1 parent 24122a5 commit e56a8037c04a32922cb0951c66f64ecc6ebfecb3 @gergoerdi gergoerdi committed with thoughtpolice May 25, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Haddock/Convert.hs
View
@@ -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))

0 comments on commit e56a803

Please sign in to comment.