Delete unused NoneExpr

src/passes/1-parser/pascaligo/AST.ml

@@ -408,7 +408,6 @@ and lhs =
 
 and rhs =
       Expr of expr
-| NoneExpr of c_None
 
 and loop =
   While of while_loop reg
@@ -760,7 +759,6 @@ let lhs_to_region : lhs -> Region.t = function
 
 let rhs_to_region = function
       Expr e -> expr_to_region e
-| NoneExpr r -> r
 
 let selection_to_region = function
   FieldName {region; _}

src/passes/1-parser/pascaligo/AST.mli

@@ -392,7 +392,6 @@ and lhs =
 
 and rhs =
       Expr of expr
-| NoneExpr of c_None
 
 and loop =
   While of while_loop reg

src/passes/1-parser/pascaligo/ParserLog.ml

@@ -311,7 +311,6 @@ and print_assignment {value; _} =
 
 and print_rhs = function
       Expr e -> print_expr e
-| NoneExpr r -> print_token r "None"
 
 and print_lhs = function
   Path path -> print_path path

src/passes/2-simplify/pascaligo.ml

@@ -782,7 +782,6 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
       let (a , loc) = r_split a in
       let%bind value_expr = match a.rhs with
         | Expr e -> simpl_expression e
-        | NoneExpr reg -> simpl_expression (EConstr (NoneExpr reg))
       in
       match a.lhs with
         | Path path -> (