Parser patch from Christian

2019-10-07 11:53:07 +02:00 · 2019-10-07 11:53:07 +02:00 · 1401d03d62
commit 1401d03d62
parent bb86ba6ad0
1 changed files with 5 additions and 1 deletions
--- a/src/passes/1-parser/pascaligo/Parser.mly
+++ b/src/passes/1-parser/pascaligo/Parser.mly
@ -591,7 +591,11 @@ assignment:
    in {region; value}}

 rhs:
-  expr  { Expr $1 }
+  expr {
+    match $1 with
+      EConstr (NoneExpr e) -> (NoneExpr e : rhs)
+    | e -> Expr e
+  }

 lhs:
  path       {    Path $1 }