diff options
| author | Gabriel Kerneis | 2013-12-13 16:01:30 +0000 |
|---|---|---|
| committer | Gabriel Kerneis | 2013-12-13 16:01:57 +0000 |
| commit | 7d368ee6a43f3bcb99b5cb754c52f5246db85618 (patch) | |
| tree | 305e0dde3743a307b799b674f729870439c2e1d1 /src/parser.mly | |
| parent | d2628288f054e72fef2d5bbad24f1aac0f5d1db7 (diff) | |
Fix effect annotation pretty-printing
There is also a bug for parsing effect annotations (in fundecl).
But for some reason, my fix for the parser does not work:
test/test2.sail still refuses to parse (chokes on "effect
pure"), even with "Effect" added to parser.mly.
Diffstat (limited to 'src/parser.mly')
| -rw-r--r-- | src/parser.mly | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/parser.mly b/src/parser.mly index 6ef0a91e..010ac76d 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -862,8 +862,8 @@ fun_def: { funloc (FD_function(mk_rec 2,mk_tannot (mk_typqn ()) $3 3 3, mk_eannotn (), $4)) } | Function_ Rec funcl_ands { funloc (FD_function(mk_rec 2, mk_tannotn (), mk_eannotn (), $3)) } - | Function_ typquant atomic_typ effect_typ funcl_ands - { funloc (FD_function(mk_recn (), mk_tannot $2 $3 2 3, mk_eannot $4 4, $5)) } + | Function_ typquant atomic_typ Effect effect_typ funcl_ands + { funloc (FD_function(mk_recn (), mk_tannot $2 $3 2 3, mk_eannot $5 5, $6)) } | Function_ typquant typ funcl_ands { funloc (FD_function(mk_recn (), mk_tannot $2 $3 2 2, mk_eannotn (), $4)) } | Function_ Effect effect_typ funcl_ands |