File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed
Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -12,7 +12,7 @@ build: [
1212depends: [
1313 "ocaml"
1414 "dune"
15- "ocaml-migrate-parsetree"
15+ "ocaml-migrate-parsetree" {>= "1.7.0"}
1616 "alcotest" {with-test}
1717]
1818synopsis: "Include a file as a string at compile time"
Original file line number Diff line number Diff line change 11open Migrate_parsetree
2- open Ast_408
2+ open Ast_411
33
4- let str ?loc ?attrs s = Ast_helper.Exp. constant ?loc ?attrs (Pconst_string (s, None ) )
4+ let str ?loc ?attrs s = Ast_helper.Exp. constant ?loc ?attrs (Ast_helper.Const. string ?loc s )
55
66let location_errorf ~loc =
77 Format. ksprintf (fun err ->
@@ -32,7 +32,7 @@ let mapper _config _cookies =
3232 begin match pstr with
3333 | PStr [{ pstr_desc =
3434 Pstr_eval ({ pexp_loc = loc;
35- pexp_desc = Pexp_constant (Pconst_string (file_name, _));
35+ pexp_desc = Pexp_constant (Pconst_string (file_name, _, _ ));
3636 _ }, _);
3737 _ }] ->
3838 str (get_blob ~loc file_name)
@@ -44,5 +44,5 @@ let mapper _config _cookies =
4444
4545let () =
4646 Driver. register ~name: " ppx_blob"
47- Versions. ocaml_408
47+ Versions. ocaml_411
4848 mapper
You can’t perform that action at this time.
0 commit comments