diff options
| author | Jon French | 2018-12-27 16:20:31 +0000 |
|---|---|---|
| committer | Jon French | 2018-12-27 16:20:31 +0000 |
| commit | 9f6a95882e1d3d057bcb83d098ba1b63925a4d1f (patch) | |
| tree | a588e6f92a9d4914b6c915c9bd7c2f50236abbe5 /src/parser.mly | |
| parent | 4f804dc5d80b422d1822c9aec5221ada7b395fc7 (diff) | |
fix missed case in refactored val-spec extern parser
Diffstat (limited to 'src/parser.mly')
| -rw-r--r-- | src/parser.mly | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/parser.mly b/src/parser.mly index b2df5176..0fe99280 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -1330,7 +1330,7 @@ val_spec_def: | Val Cast id Colon typschm { mk_vs (VS_val_spec ($5, $3, [], true)) $startpos $endpos } | Val id Eq String Colon typschm - { mk_vs (VS_val_spec ($6, $2, [], false)) $startpos $endpos } + { mk_vs (VS_val_spec ($6, $2, [("_", $4)], false)) $startpos $endpos } | Val Cast id Eq String Colon typschm { mk_vs (VS_val_spec ($7, $3, [("_", $5)], true)) $startpos $endpos } | Val String Colon typschm |