Permalink
Browse files

Follow change in patSynSig

Conflicts:
	src/Haddock/Convert.hs
  • Loading branch information...
1 parent 92ceb34 commit e811b00837d19340047ad83273b4aa2dc2534dd8 @simonpj simonpj committed with Fuuzetsu Jun 6, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Haddock/Convert.hs
View
@@ -94,10 +94,10 @@ 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, _, res_ty) = patSynSig ps
in SigD $ PatSynSig (synifyName ps)
(fmap (synifyType WithinType) (patSynTyDetails ps))
- (synifyType WithinType (patSynType ps))
+ (synifyType WithinType res_ty)
(synifyCtx req_theta)
(synifyCtx prov_theta)

0 comments on commit e811b00

Please sign in to comment.