diff --git a/ppx_make.opam b/ppx_make.opam index fbb9353..026bf9d 100644 --- 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 "] authors: ["Boning "] diff --git a/src/ppx_make.ml b/src/ppx_make.ml index 3ff5ad1..065e87a 100644 --- 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