Skip to content

Commit

Permalink
Update dune
Browse files Browse the repository at this point in the history
  • Loading branch information
andersfugmann committed Jun 3, 2024
1 parent 56f660c commit d38b75c
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 3 deletions.
3 changes: 1 addition & 2 deletions drivers/json/dune
Original file line number Diff line number Diff line change
@@ -1,9 +1,8 @@
(library
(name protocol_conv_json)
(public_name ppx_protocol_conv_json)
(modules :standard \ test_expect)
(private_modules test_expect)
(libraries ppx_protocol_conv.runtime ppx_protocol_conv.driver yojson)
(synopsis "yojson (de)serialization driver for ppx_protocol_conv")
(preprocess (pps ppx_protocol_conv))
(preprocess (pps ppx_protocol_conv ppx_expect))
)
2 changes: 1 addition & 1 deletion drivers/xmlm/xmlm.ml
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ let try_with: (t -> 'a) -> t -> ('a, error) result = fun f t ->
| exception (Protocol_error e) -> Error e

let raise_errorf t fmt =
Caml.Printf.kprintf (fun s -> raise (Protocol_error (s, t))) fmt
Printf.kprintf (fun s -> raise (Protocol_error (s, t))) fmt

let wrap t f x = match f x with
| v -> v
Expand Down

0 comments on commit d38b75c

Please sign in to comment.