From 4f69b2c58a53e405eb23d5763de774e9526420a0 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Fri, 30 Dec 2016 22:42:22 +0700 Subject: Fix missing quotes around values in Session.string_of_op --- src/session.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/session.ml b/src/session.ml index ee51c55..b380817 100644 --- a/src/session.ml +++ b/src/session.ml @@ -33,12 +33,12 @@ let string_of_op op = let path_str = Util.string_of_path path in (match value with | None -> Printf.sprintf "set %s" path_str - | Some v -> Printf.sprintf "set %s %s" path_str v) + | Some v -> Printf.sprintf "set %s \"%s\"" path_str v) | CfgDelete (path, value) -> let path_str = Util.string_of_path path in (match value with | None -> Printf.sprintf "delete %s" path_str - | Some v -> Printf.sprintf "delete %s %s" path_str v) + | Some v -> Printf.sprintf "delete %s \"%s\"" path_str v) let set_modified s = -- cgit v1.2.3