From 5e5293eb71610290c466e6e123476b89bd7693f3 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Fri, 8 Jul 2016 23:11:59 +0200
Subject: Adding a breaking space in warning names.

---
 lib/cWarnings.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/cWarnings.ml')

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
-- 
cgit v1.2.3