Commit 6929ab30 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

Parser: admit braced types in returns

parent f02f0418
...@@ -908,6 +908,7 @@ ret_arg: ...@@ -908,6 +908,7 @@ ret_arg:
| lqualid { PTtyapp ($1, []), Ity.MaskVisible } | lqualid { PTtyapp ($1, []), Ity.MaskVisible }
| quote_lident { PTtyvar $1, Ity.MaskVisible } | quote_lident { PTtyvar $1, Ity.MaskVisible }
| LEFTPAR RIGHTPAR { PTtuple [], Ity.MaskVisible } | LEFTPAR RIGHTPAR { PTtuple [], Ity.MaskVisible }
| LEFTBRC ty RIGHTBRC { PTpure $2, Ity.MaskVisible }
| LEFTPAR ret_sub RIGHTPAR { PTparen (fst $2), snd $2 } | LEFTPAR ret_sub RIGHTPAR { PTparen (fst $2), snd $2 }
| LEFTPAR comma_list2(ret_sub) RIGHTPAR { PTtuple (List.map fst $2), | LEFTPAR comma_list2(ret_sub) RIGHTPAR { PTtuple (List.map fst $2),
Ity.MaskTuple (List.map snd $2) } Ity.MaskTuple (List.map snd $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