From 6bc7e65a97c27918ae8d20aade5a2d93bf8127fa Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Thu, 15 Dec 2016 21:39:52 +0100 Subject: Use Pp.quote in string options. --- library/goptions.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'library/goptions.ml') diff --git a/library/goptions.ml b/library/goptions.ml index 7ddf46bdd..1c08b9539 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -382,9 +382,9 @@ let msg_option_value (name,v) = | BoolValue false -> str "off" | IntValue (Some n) -> int n | IntValue None -> str "undefined" - | StringValue s -> str "\"" ++ str s ++ str "\"" + | StringValue s -> quote (str s) | StringOptValue None -> str"undefined" - | StringOptValue (Some s) -> str "\"" ++ str s ++ str "\"" + | StringOptValue (Some s) -> quote (str s) (* | IdentValue r -> pr_global_env Id.Set.empty r *) let print_option_value key = -- cgit v1.2.3