From c754178f2fe2e741105c5ce34029b32aad033f91 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Tue, 22 May 2018 21:04:49 +0700 Subject: Remove a leftover debug print. --- src/vycli.ml | 2 +- src/vyconfd.ml | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/vycli.ml b/src/vycli.ml index c2f95e7..e00a4e3 100644 --- a/src/vycli.ml +++ b/src/vycli.ml @@ -78,7 +78,7 @@ let main socket op path out_format config_format = end in match result with | Ok s -> let%lwt () = Lwt_io.write Lwt_io.stdout s in Lwt.return 0 - | Error e -> let%lwt () = Lwt_io.write Lwt_io.stderr e in Lwt.return 1 + | Error e -> let%lwt () = Lwt_io.write Lwt_io.stderr (Printf.sprintf "%s\n" e) in Lwt.return 1 let _ = let () = Arg.parse args (fun f -> ()) usage in diff --git a/src/vyconfd.ml b/src/vyconfd.ml index 1260544..f2af9b0 100644 --- a/src/vyconfd.ml +++ b/src/vyconfd.ml @@ -128,7 +128,6 @@ let list_children world token (req: request_list_children) = let show_config world token (req: request_show_config) = try let fmt = BatOption.default Curly req.format in - print_endline (Util.string_of_list req.path); let conf_str = Session.show_config world (find_session token) req.path fmt in {response_tmpl with output=(Some conf_str)} with Session.Session_error msg -> {response_tmpl with status=Fail; error=(Some msg)} -- cgit v1.2.3