You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/dev-ml/ppx_let/files/oc43.patch

45 lines
1.7 KiB

diff -uNr ppx_let-113.33.00/_oasis ppx_let-113.33.00+4.03/_oasis
--- ppx_let-113.33.00/_oasis 2016-03-09 16:44:54.000000000 +0100
+++ ppx_let-113.33.00+4.03/_oasis 2016-03-22 15:13:50.000000000 +0100
@@ -1,8 +1,8 @@
OASISFormat: 0.4
-OCamlVersion: >= 4.02.3
+OCamlVersion: >= 4.03.0
FindlibVersion: >= 1.3.2
Name: ppx_let
-Version: 113.33.00
+Version: 113.33.00+4.03
Synopsis: Monadic let-bindings
Authors: Jane Street Group, LLC <opensource@janestreet.com>
Copyrights: (C) 2015-2016 Jane Street Group LLC <opensource@janestreet.com>
diff -uNr ppx_let-113.33.00/opam ppx_let-113.33.00+4.03/opam
--- ppx_let-113.33.00/opam 2016-03-18 12:08:01.000000000 +0100
+++ ppx_let-113.33.00+4.03/opam 2016-03-22 17:51:37.000000000 +0100
@@ -15,4 +15,4 @@
"ppx_core"
"ppx_driver"
]
-available: [ ocaml-version >= "4.02.3" ]
+available: [ ocaml-version >= "4.03.0" ]
diff -uNr ppx_let-113.33.00/src/ppx_let.ml ppx_let-113.33.00+4.03/src/ppx_let.ml
--- ppx_let-113.33.00/src/ppx_let.ml 2016-03-09 16:44:54.000000000 +0100
+++ ppx_let-113.33.00+4.03/src/ppx_let.ml 2016-03-22 15:13:50.000000000 +0100
@@ -64,7 +64,7 @@
in
pexp_apply ~loc
(eoperator ~loc (Extension_name.operator_name extension_name))
- [("", arg); (fn_label, fn)]
+ [(Nolabel, arg); (Labelled fn_label, fn)]
;;
let maybe_open extension_name ~to_open:module_to_open expr =
@@ -90,7 +90,7 @@
ppat_tuple ~loc [p; acc])
in
bind_apply ~loc extension_name ~arg:nested_boths
- ~fn:(pexp_fun ~loc "" None nested_patterns
+ ~fn:(pexp_fun ~loc Nolabel None nested_patterns
(maybe_open extension_name ~to_open:open_in_body body))
;;