blob: 3606d2963380747c4822bccd395fce8d78ebb740 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
diff -uNr ppx_expect-113.33.01/expect_payload/ppx_expect_payload.ml ppx_expect-113.33.01+4.03/expect_payload/ppx_expect_payload.ml
--- ppx_expect-113.33.01/expect_payload/ppx_expect_payload.ml 2016-03-22 17:09:17.000000000 +0100
+++ ppx_expect-113.33.01+4.03/expect_payload/ppx_expect_payload.ml 2016-04-06 12:35:50.000000000 +0200
@@ -63,7 +63,7 @@
let pattern () =
Ast_pattern.(
- map (single_expr_payload (pexp_loc __ (pexp_constant (const_string __ __))))
+ map (single_expr_payload (pexp_loc __ (pexp_constant (pconst_string __ __))))
~f:(fun f loc s tag -> f (Some (loc, s, tag)))
|||
map (pstr nil)
diff -uNr ppx_expect-113.33.01/_oasis ppx_expect-113.33.01+4.03/_oasis
--- ppx_expect-113.33.01/_oasis 2016-03-22 17:09:17.000000000 +0100
+++ ppx_expect-113.33.01+4.03/_oasis 2016-04-06 12:35:50.000000000 +0200
@@ -1,8 +1,8 @@
OASISFormat: 0.4
-OCamlVersion: >= 4.02.3
+OCamlVersion: >= 4.03.0
FindlibVersion: >= 1.3.2
Name: ppx_expect
-Version: 113.33.01
+Version: 113.33.01+4.03
Synopsis: Cram like framework for OCaml
Authors: Jane Street Group, LLC <opensource@janestreet.com>
Copyrights: (C) 2015-2016 Jane Street Group LLC <opensource@janestreet.com>
diff -uNr ppx_expect-113.33.01/opam ppx_expect-113.33.01+4.03/opam
--- ppx_expect-113.33.01/opam 2016-03-22 18:31:21.000000000 +0100
+++ ppx_expect-113.33.01+4.03/opam 2016-04-06 12:54:27.000000000 +0200
@@ -27,4 +27,4 @@
"sexplib"
"variantslib"
]
-available: [ ocaml-version >= "4.02.3" ]
+available: [ ocaml-version >= "4.03.0" ]
diff -uNr ppx_expect-113.33.01/src/expect_extension.ml ppx_expect-113.33.01+4.03/src/expect_extension.ml
--- ppx_expect-113.33.01/src/expect_extension.ml 2016-03-22 17:09:17.000000000 +0100
+++ ppx_expect-113.33.01+4.03/src/expect_extension.ml 2016-04-06 12:35:50.000000000 +0200
@@ -24,9 +24,8 @@
pstr ((
pstr_value nonrecursive (
value_binding
- ~pat:(map (pstring __) ~f:(fun f x -> f (Some x)))
+ ~pat:(alt_option (pstring __) ppat_any)
~expr ^:: nil)
- ||| map (pstr_eval expr nil) ~f:(fun f -> f None)
) ^:: nil)
let expect_test =
|
GitWeb
