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 Copyrights: (C) 2015-2016 Jane Street Group LLC 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)) ;;