Skip to content
Permalink
Browse files

Remove debug statements

  • Loading branch information...
samoht committed Apr 4, 2019
1 parent 2757184 commit e7268683565e85c95c8bf9efe3de3a5463596cc3
Showing with 2 additions and 14 deletions.
  1. +2 −10 src/irmin/type.ml
  2. +0 −4 test/irmin/test.ml
@@ -820,11 +820,7 @@ let pp t =
in
aux t

let to_json_string ?minify t x =
Fmt.epr "UUU\n%!";
let s = Fmt.to_to_string (pp_json ?minify t) x in
Fmt.epr "YYY %a -> %s\n%!" (pp t) x s;
s
let to_json_string ?minify t x = Fmt.to_to_string (pp_json ?minify t) x

module Decode_json = struct
let lexeme e =
@@ -1572,11 +1568,7 @@ let hash t x =
let like ?cli ?json ?bin ?equal ?compare ?hash:h ?pre_digest:p t =
let encode_json, decode_json =
match json with
| Some (x, y) ->
( x,
fun d ->
Fmt.epr "YO\n%!";
y d )
| Some (x, y) -> (x, y)
| None -> (
let rec is_prim : type a. a t -> bool = function
| Self s -> is_prim s.self
@@ -62,10 +62,6 @@ let error = Alcotest.testable (fun ppf (`Msg e) -> Fmt.string ppf e) ( = )
let ok x = Alcotest.result x error

let test_json () =
Fmt.epr "XXX test+json\n%!";
(* let s = T.to_string hex "foo" in
Alcotest.(check string) "CLI hex" "666f6f" s;
*)
let s = T.to_json_string hex "foo" in
Alcotest.(check string) "JSON hex" "\"666f6f\"" s;
let s = T.to_bin_string hex "foo" in

0 comments on commit e726868

Please sign in to comment.
You can’t perform that action at this time.