From c2003b1e810c739b16136afc183d44728c292f46 Mon Sep 17 00:00:00 2001
From: Cameron Wong <cwong@janestreet.com>
Date: Fri, 30 Oct 2020 16:02:09 -0400
Subject: [PATCH] v0.14.1

Signed-off-by: Cameron Wong <cwong@janestreet.com>
---
 CHANGES.md                           | 4 ++++
 expect_payload/ppx_expect_payload.ml | 4 ++--
 ppx_expect.opam                      | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 28cd3de..f402352 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -4,6 +4,10 @@
 - Make sure the code we generate can be typed without warning when `-principal`
   is passed to the compiler.
 
+## v0.14.1
+
+- Update to be compatible with ppxlib 0.18.0
+
 ## v0.11
 
 - Change `ppx_expect` so that when `-diff-cmd -` is passed, they write the
diff --git a/expect_payload/ppx_expect_payload.ml b/expect_payload/ppx_expect_payload.ml
index 23a12e1..fd2a5bb 100644
--- a/expect_payload/ppx_expect_payload.ml
+++ b/expect_payload/ppx_expect_payload.ml
@@ -86,7 +86,7 @@ let make ~kind payload ~(extension_id_loc : Location.t) =
 let pattern () =
   Ast_pattern.(
     map
-      (single_expr_payload (pexp_loc __ (pexp_constant (pconst_string __ __))))
-      ~f:(fun f loc s tag -> f (Some (loc, s, tag)))
+      (single_expr_payload (pexp_loc __ (pexp_constant (pconst_string __ __ __))))
+      ~f:(fun f loc s _loc tag -> f (Some (loc, s, tag)))
     ||| map (pstr nil) ~f:(fun f -> f None))
 ;;
diff --git a/ppx_expect.opam b/ppx_expect.opam
index dcce541..59adadb 100644
--- a/ppx_expect.opam
+++ b/ppx_expect.opam
@@ -17,7 +17,7 @@ depends: [
   "ppx_inline_test" {>= "v0.14" & < "v0.15"}
   "stdio"           {>= "v0.14" & < "v0.15"}
   "dune"            {>= "2.0.0"}
-  "ppxlib"          {>= "0.11.0"}
+  "ppxlib"          {>= "0.18.0"}
   "re"              {>= "1.8.0"}
 ]
 synopsis: "Cram like framework for OCaml"