summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDaniil Baturin <daniil@baturin.org>2018-05-22 21:04:49 +0700
committerDaniil Baturin <daniil@baturin.org>2018-05-22 21:06:35 +0700
commitc754178f2fe2e741105c5ce34029b32aad033f91 (patch)
treea0532e90d15ebdb248a1cc230ba6fa194e561eb9 /src
parent08cc3adf5a85d1fd93ae9789e7fd1b1348095264 (diff)
downloadvyconf-c754178f2fe2e741105c5ce34029b32aad033f91.tar.gz
vyconf-c754178f2fe2e741105c5ce34029b32aad033f91.zip
Remove a leftover debug print.
Diffstat (limited to 'src')
-rw-r--r--src/vycli.ml2
-rw-r--r--src/vyconfd.ml1
2 files changed, 1 insertions, 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)}