module M = struct type t = A of int [@@deriving sexp]end
let f x = match x with
| M.(A(_)) -> 3
$ ocamlc t.ml
$ cat jbuild (jbuild_version 1)
(executables ((names (t)) (preprocess (pps (ppx_jane))) ))
$ jbuilder build t.exe ocamlopt .ppx/ppx_jane/ppx.exe ppx t.pp.ml (exit 2)Fatal error: exception File "t.ml", line 7, characters 4-12: module open in patterns are not supported before OCaml 4.04Raised at file "src/migrate_parsetree_404_403_migrate.ml", line 24, characters 2-49Called from file "src/migrate_parsetree_404_403_migrate.ml", line 260, characters 8-46Called from file "src/migrate_parsetree_404_403_migrate.ml", line 223, characters 8-29Called from file "list.ml", line 59, characters 20-23Called from file "src/migrate_parsetree_404_403_migrate.ml", line 81, characters 10-33Called from file "src/migrate_parsetree_404_403_migrate.ml", line 37, characters 8-49Called from file "src/migrate_parsetree_404_403_migrate.ml", line 69, characters 10-30Called from file "src/migrate_parsetree_404_403_migrate.ml", line 37, characters 8-49Called from file "src/migrate_parsetree_404_403_migrate.ml", line 244, characters 8-34Called from file "list.ml", line 59, characters 20-23Called from file "src/migrate_parsetree_404_403_migrate.ml", line 502, characters 10-42Called from file "src/migrate_parsetree_404_403_migrate.ml", line 485, characters 8-44Called from file "list.ml", line 59, characters 20-23Called from file "list.ml", line 59, characters 32-39Called from file "src/migrate_parsetree_driver.ml", line 191, characters 21-67Called from file "src/migrate_parsetree_driver.ml", line 197, characters 11-86Called from file "src/migrate_parsetree_driver.ml", line 345, characters 10-60Called from file "list.ml", line 77, characters 12-15Called from file "src/migrate_parsetree_driver.ml", line 442, characters 4-86Re-raised at file "parsing/location.ml", line 450, characters 12-23Re-raised at file "parsing/location.ml", line 450, characters 12-23Re-raised at file "parsing/location.ml", line 450, characters 12-23Re-raised at file "parsing/location.ml", line 450, characters 12-23Re-raised at file "parsing/location.ml", line 450, characters 12-23Re-raised at file "parsing/location.ml", line 450, characters 12-23Called from file "parsing/location.ml" (inlined), line 454, characters 31-61Called from file "src/migrate_parsetree_driver.ml", line 444, characters 4-54Called from file "src/migrate_parsetree_driver.ml", line 472, characters 4-31Called from file "src/migrate_parsetree_driver_main.ml", line 1, characters 9-45