diff options
| author | Maxime Dénès | 2016-12-15 21:39:52 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-12-19 08:40:20 +0100 |
| commit | 6bc7e65a97c27918ae8d20aade5a2d93bf8127fa (patch) | |
| tree | 9391bef9fe68c1b38c01d3060d4aec6b03c29856 /library | |
| parent | ad768e435a736ca51ac79a575967b388b34918c7 (diff) | |
Use Pp.quote in string options.
Diffstat (limited to 'library')
| -rw-r--r-- | library/goptions.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 7ddf46bdde..1c08b9539f 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 = |