From ea17c43e1c920af7bf5685ba316d804b9e7aac14 Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Tue, 12 Jul 2016 17:08:10 +0100 Subject: [PATCH] 114.01+04 --- _oasis | 2 +- src/ppx_let.ml | 4 ++-- test/test-locations.mlt | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/_oasis b/_oasis index eb863eaa6..0b3a23769 100644 --- a/_oasis +++ b/_oasis @@ -2,7 +2,7 @@ OASISFormat: 0.4 OCamlVersion: >= 4.02.3 FindlibVersion: >= 1.3.2 Name: ppx_let -Version: 113.43+70 +Version: 114.01+04 Synopsis: Monadic let-bindings Authors: Jane Street Group, LLC Copyrights: (C) 2015-2016 Jane Street Group LLC diff --git a/src/ppx_let.ml b/src/ppx_let.ml index b3079c11d..ce38f4e08 100644 --- a/src/ppx_let.ml +++ b/src/ppx_let.ml @@ -63,7 +63,7 @@ let bind_apply ~loc extension_name ~arg ~fn = 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 = @@ -89,7 +89,7 @@ let expand_let extension_name ~loc bindings body = ppat_tuple ~loc [p; acc]) in bind_apply ~loc extension_name ~arg:nested_boths - ~fn:(pexp_fun ~loc "" None nested_patterns body) + ~fn:(pexp_fun ~loc Nolabel None nested_patterns body) ;; let expand_match extension_name ~loc expr cases = diff --git a/test/test-locations.mlt b/test/test-locations.mlt index 79027c87f..765b8b345 100644 --- a/test/test-locations.mlt +++ b/test/test-locations.mlt @@ -13,6 +13,6 @@ end let _ = [%map_open let x = return 42 and y = f 42 in ()] [%%expect{| Line _, characters 45-49: -Error: This expression has type doc:bytes -> (int * bytes) Let_syntax.t +Error: This expression has type doc:string -> (int * string) Let_syntax.t but an expression was expected of type 'a Let_syntax.t |}]