remove newline when using debug. otherwise 2 newlines appears in the log

diff --git a/common/dbus_server.ml b/common/dbus_server.ml
index 9ec7e7b0e7515721559c6dd1b0e7da80290ef36b..24a5f940c88f1213c4510be35759ba68d8cafb37 100644 (file)
--- a/common/dbus_server.ml
+++ b/common/dbus_server.ml
@@ -139,12 +139,12 @@ type node =
 let apis = ref ([] : ((* node name *) string * node) list)
 
 let register_node name node =
-       debug "Registering node \"%s\" ...\n%!" name;
+       debug "Registering node %S ..." name;
        apis := (name, node) :: !apis
 
 let remove_node name =
        (* Remove child nodes as well. *)
-       debug "Removing node \"%s\" and its children...\n%!" name;
+       debug "Removing node %S and its children..." name;
        apis := List.filter (fun (n, _) -> not (String.startswith name n)) !apis
 
 let dispatch_get req node prop =