diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-07-08 23:11:59 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-07-08 23:15:09 +0200 |
commit | 5e5293eb71610290c466e6e123476b89bd7693f3 (patch) | |
tree | 5e80d011abc01c963b58002025cb292e9025b734 /lib/cWarnings.ml | |
parent | cb2b5cc48d54ada8a2899d311253fcb12a81fd14 (diff) |
Adding a breaking space in warning names.
Diffstat (limited to 'lib/cWarnings.ml')
-rw-r--r-- | lib/cWarnings.ml | 2 |
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 |