From 9f6a95882e1d3d057bcb83d098ba1b63925a4d1f Mon Sep 17 00:00:00 2001
From: Jon French
Date: Thu, 27 Dec 2018 16:20:31 +0000
Subject: fix missed case in refactored val-spec extern parser

---
 src/parser.mly | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/parser.mly')

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
-- 
cgit v1.2.3