From fb81b677b546e2e596f411195684ba47ebe67d91 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 5 Dec 2018 19:59:30 +0100
Subject: Do so that an error message follows the "Error:" header on the same
 line.

---
 lib/cErrors.ml                                    | 2 +-
 test-suite/output/ErrorInCanonicalStructures.out  | 3 +--
 test-suite/output/ErrorInCanonicalStructures2.out | 3 +--
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/lib/cErrors.ml b/lib/cErrors.ml
index 811fcf4063..79f0a806a7 100644
--- a/lib/cErrors.ml
+++ b/lib/cErrors.ml
@@ -112,7 +112,7 @@ let iprint_no_report (e, info) =
 
 let _ = register_handler begin function
   | UserError(s, pps) ->
-    hov 0 (where s ++ pps)
+    where s ++ pps
   | _ -> raise Unhandled
 end
 
diff --git a/test-suite/output/ErrorInCanonicalStructures.out b/test-suite/output/ErrorInCanonicalStructures.out
index 73da4f44f8..b4aa60a2c8 100644
--- a/test-suite/output/ErrorInCanonicalStructures.out
+++ b/test-suite/output/ErrorInCanonicalStructures.out
@@ -1,5 +1,4 @@
 File "stdin", line 3, characters 0-24:
-Error:
-Could not declare a canonical structure Foo.
+Error: Could not declare a canonical structure Foo.
 Expected an instance of a record or structure.
 
diff --git a/test-suite/output/ErrorInCanonicalStructures2.out b/test-suite/output/ErrorInCanonicalStructures2.out
index 63a2871b82..ab64e25030 100644
--- a/test-suite/output/ErrorInCanonicalStructures2.out
+++ b/test-suite/output/ErrorInCanonicalStructures2.out
@@ -1,5 +1,4 @@
 File "stdin", line 3, characters 0-24:
-Error:
-Could not declare a canonical structure bar.
+Error: Could not declare a canonical structure bar.
 Expected an instance of a record or structure.
 
-- 
cgit v1.2.3