diff options
| author | Hugo Herbelin | 2018-12-05 19:59:30 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2018-12-08 18:23:30 +0100 |
| commit | fb81b677b546e2e596f411195684ba47ebe67d91 (patch) | |
| tree | 45209204a76fab5e10e5effb074f94afc6e912d7 | |
| parent | fa20a54d9fbe0f3872614a592fcef7ef56b05e49 (diff) | |
Do so that an error message follows the "Error:" header on the same line.
| -rw-r--r-- | lib/cErrors.ml | 2 | ||||
| -rw-r--r-- | test-suite/output/ErrorInCanonicalStructures.out | 3 | ||||
| -rw-r--r-- | 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. |