Commit f0d10e34 authored by pcapriotti's avatar pcapriotti

Allow promoted constructors in the typedoc production (#5948)

parent 3f46b1e3
......@@ -1053,6 +1053,9 @@ typedoc :: { LHsType RdrName }
| btype '->' ctypedoc { LL $ HsFunTy $1 $3 }
| btype docprev '->' ctypedoc { LL $ HsFunTy (L (comb2 $1 $2) (HsDocTy $1 $2)) $4 }
| btype '~' btype { LL $ HsEqTy $1 $3 }
-- see Note [Promotion]
| btype SIMPLEQUOTE qconop type { LL $ mkHsOpTy $1 $3 $4 }
| btype SIMPLEQUOTE varop type { LL $ mkHsOpTy $1 $3 $4 }
btype :: { LHsType RdrName }
: btype atype { LL $ HsAppTy $1 $2 }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment