Make compatible with 4.04

bn-d · Aug 19, 2021 · 9404f27 · 9404f27
1 parent eaac9bd
commit 9404f27
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/ppx_make.opam b/ppx_make.opam
@@ -1,6 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-version: "0.2.0"
+version: "0.2.1"
 synopsis: "Ppxlib based make deriver"
 maintainer: ["Boning <[email protected]>"]
 authors: ["Boning <[email protected]>"]

diff --git a/src/ppx_make.ml b/src/ppx_make.ml
@@ -232,7 +232,7 @@ let str_item_of_variant_choice name (cd : P.constructor_declaration) :
     P.structure_item =
   let loc = cd.pcd_loc in
   Ast_helper.with_default_loc loc (fun () ->
-      if Option.is_some cd.pcd_res then
+      if cd.pcd_res != None then
         Utils.unsupported_error name
       else
         let pat =
@@ -278,7 +278,7 @@ let sig_item_of_variant_choice name (cd : P.constructor_declaration) :
     P.signature_item =
   let loc = cd.pcd_loc in
   Ast_helper.with_default_loc loc (fun () ->
-      if Option.is_some cd.pcd_res then
+      if cd.pcd_res != None then
         Utils.unsupported_error name
       else
         let fun_name = Utils.gen_make_choice_name name cd.pcd_name in