aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/cWarnings.ml
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2016-07-08 23:11:59 +0200
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2016-07-08 23:15:09 +0200
commit5e5293eb71610290c466e6e123476b89bd7693f3 (patch)
tree5e80d011abc01c963b58002025cb292e9025b734 /lib/cWarnings.ml
parentcb2b5cc48d54ada8a2899d311253fcb12a81fd14 (diff)
Adding a breaking space in warning names.
Diffstat (limited to 'lib/cWarnings.ml')
-rw-r--r--lib/cWarnings.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/cWarnings.ml b/lib/cWarnings.ml
index 7b8dc2b9b..78fa84f33 100644
--- a/lib/cWarnings.ml
+++ b/lib/cWarnings.ml
@@ -48,7 +48,7 @@ let create ~name ~category ?(default=Enabled) pp =
CErrors.user_err_loc (loc,"_",pp x)
| Enabled ->
let msg =
- pp x ++ str " [" ++ str name ++ str "," ++
+ pp x ++ spc () ++ str "[" ++ str name ++ str "," ++
str category ++ str "]"
in
let loc = Option.default !current_loc loc in