Stéphane Glondu pushed to branch upstream at Debian OCaml Maintainers / ppx-optcomp
Commits:
-
fd5b0355
by Stephane Glondu at 2025-09-10T00:46:08+02:00
2 changed files:
Changes:
| 1 | 1 | opam-version: "2.0"
|
| 2 | -version: "v0.17.0"
|
|
| 2 | +version: "v0.17.1"
|
|
| 3 | 3 | maintainer: "Jane Street developers"
|
| 4 | 4 | authors: ["Jane Street Group, LLC"]
|
| 5 | 5 | homepage: "https://github.com/janestreet/ppx_optcomp"
|
| ... | ... | @@ -15,7 +15,7 @@ depends: [ |
| 15 | 15 | "base" {>= "v0.17" & < "v0.18"}
|
| 16 | 16 | "stdio" {>= "v0.17" & < "v0.18"}
|
| 17 | 17 | "dune" {>= "3.11.0"}
|
| 18 | - "ppxlib" {>= "0.28.0"}
|
|
| 18 | + "ppxlib" {>= "0.36.0"}
|
|
| 19 | 19 | ]
|
| 20 | 20 | available: arch != "arm32" & arch != "x86_32"
|
| 21 | 21 | synopsis: "Optional compilation for OCaml"
|
| ... | ... | @@ -481,7 +481,8 @@ let map = |
| 481 | 481 | in
|
| 482 | 482 | let x =
|
| 483 | 483 | match x with
|
| 484 | - | Pexp_function cs -> Pexp_function (List.filter_map cs ~f)
|
|
| 484 | + | Pexp_function (params, constr, Pfunction_cases (cs, loc, attr)) ->
|
|
| 485 | + Pexp_function (params, constr, Pfunction_cases (List.filter_map cs ~f, loc, attr))
|
|
| 485 | 486 | | Pexp_match (e, cs) -> Pexp_match (super#_expression_ env e, List.filter_map cs ~f)
|
| 486 | 487 | | Pexp_try (e, cs) -> Pexp_try (super#_expression_ env e, List.filter_map cs ~f)
|
| 487 | 488 | | _ -> x
|