allow constructor without parameters

2020-02-24 17:29:45 +01:00 · 2020-02-24 17:29:45 +01:00 · 4c2529b83c
commit 4c2529b83c
parent bbe7a29881
1 changed files with 2 additions and 1 deletions
--- a/src/passes/2-simplify/pascaligo.ml
+++ b/src/passes/2-simplify/pascaligo.ml
@ -367,7 +367,8 @@ let rec simpl_expression (t:Raw.expr) : expr result =
  | EConstr (ConstrApp c) -> (
      let ((c, args) , loc) = r_split c in
      match args with
-        None -> simpl_tuple_expression []
+        None ->
+        return @@ e_constructor ~loc c.value (e_unit ())
      | Some args ->
          let args, args_loc = r_split args in
          let%bind arg =