diff -uNr ppx_fail-113.33.00/_oasis ppx_fail-113.33.00+4.03/_oasis --- ppx_fail-113.33.00/_oasis 2016-03-09 16:44:54.000000000 +0100 +++ ppx_fail-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_fail -Version: 113.33.00 +Version: 113.33.00+4.03 Synopsis: Add location to calls to failwiths Authors: Jane Street Group, LLC Copyrights: (C) 2015-2016 Jane Street Group LLC diff -uNr ppx_fail-113.33.00/opam ppx_fail-113.33.00+4.03/opam --- ppx_fail-113.33.00/opam 2016-03-18 12:08:01.000000000 +0100 +++ ppx_fail-113.33.00+4.03/opam 2016-03-22 17:51:36.000000000 +0100 @@ -17,4 +17,4 @@ "ppx_here" "ppx_tools" {>= "0.99.3"} ] -available: [ ocaml-version >= "4.02.3" ] +available: [ ocaml-version >= "4.03.0" ] diff -uNr ppx_fail-113.33.00/src/ppx_fail.ml ppx_fail-113.33.00+4.03/src/ppx_fail.ml --- ppx_fail-113.33.00/src/ppx_fail.ml 2016-03-09 16:44:54.000000000 +0100 +++ ppx_fail-113.33.00+4.03/src/ppx_fail.ml 2016-03-22 15:13:50.000000000 +0100 @@ -12,7 +12,7 @@ match e.pexp_desc with | Pexp_ident { txt = Lident "failwiths"; _ } -> let loc = e.pexp_loc in - pexp_apply e ~loc [("here", Ppx_here_expander.lift_position ~loc)] + pexp_apply e ~loc [(Labelled "here", Ppx_here_expander.lift_position ~loc)] | _ -> super#expression e end