Skip to content

Commit 3aebf83

Browse files
committed
make it build under ocaml 5.1.1
1 parent e14ea73 commit 3aebf83

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/ppx/uncurried_utils.ml

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,13 @@
11
open Ppxlib
2-
open Ocaml_common
32
open Parsetree
43
open Graphql_compiler
4+
open Output_utils
55

66
let function_expression_uncurried ?(loc = Location.none) ~arity funExpr =
77
let arity_to_attributes ~loc arity : Parsetree.attribute list =
88
[
99
{
10-
attr_name = Location.mknoloc "res.arity";
10+
attr_name = mknoloc "res.arity";
1111
attr_payload =
1212
Parsetree.PStr
1313
[
@@ -21,7 +21,7 @@ let function_expression_uncurried ?(loc = Location.none) ~arity funExpr =
2121
in
2222
Ast_helper.Exp.construct ~loc
2323
~attrs:(arity_to_attributes ~loc arity)
24-
(Location.mknoloc (Longident.Lident "Function$"))
24+
(mknoloc (Longident.Lident "Function$"))
2525
(Some funExpr)
2626

2727
let wrap_function_exp_uncurried ?(arity = 1) expr =

0 commit comments

Comments
 (0)