aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2015-10-27 14:24:56 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2015-10-27 14:24:56 +0000
commit18de4f2f992d3ed41eb83cb073e63304f0271dca (patch)
tree071af7b2d2c653cf04f898197631f8189a0e71bd /haddock-api
parent85b7ed6147c18611b5ef6b606f157086a8203e7d (diff)
Track change to PatSyn.patSynSig
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Convert.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index f0fc108b..6f0684dc 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -99,7 +99,7 @@ tyThingToLHsDecl t = case t of
(synifyType ImplicitizeForAll (dataConUserType dc)) [])
AConLike (PatSynCon ps) ->
- let (univ_tvs, ex_tvs, req_theta, prov_theta, arg_tys, res_ty) = patSynSig ps
+ let (univ_tvs, req_theta, ex_tvs, prov_theta, arg_tys, res_ty) = patSynSig ps
qtvs = univ_tvs ++ ex_tvs
ty = mkFunTys arg_tys res_ty
in allOK . SigD $ PatSynSig (synifyName ps)