Underline red snippet output in no-color mode

changelog/2547

@@ -0,0 +1,7 @@
+
+author: nicolas.van.phan
+description: "\\n\\nFor the following piece of code, with a string that has nothing to do here :\\n\\n\\n```\\nlet main {| I should be underlined in\\n  error message with no-color and\\n  I am a long message spreading\\n  on 4 lines |} blah-blah\\n\\n```\\n\\n#### Before\\n\\n\\n```\\n> ligo compile contract --no-color contract.mligo\\nFile \"contract.mligo\", line 2, character 9 to line 5, character 15:\\n  1 | \\n  2 | let main {| I should be underlined in\\n  3 |   error message with no-color and\\n  4 |   I am a long message spreading\\n  5 |   on 4 lines |} blah-blah\\nIll-formed value declaration.\\nAt this point, one of the following is expected:\\n  * parameters as irrefutable patterns, e.g. variables, if defining a\\n    function;\\n  * the assignment symbol '=' followed by an expression;\\n  * a type annotation starting with a colon ':';\\n  * a comma ',' followed by another tuple component, if defining a\\n    tuple.\\n\\n```\\n\\n#### After\\n\\n\\n```\\n> ligo compile contract --no-color contract.mligo\\nFile \"contract.mligo\", line 2, character 9 to line 5, character 15:\\n  1 | \\n  2 | let main {| I should be underlined in\\n               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^\\n  3 |   error message with no-color and\\n      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\\n  4 |   I am a long message spreading\\n      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\\n  5 |   on 4 lines |} blah-blah\\n      ^^^^^^^^^^^^^^^\\nIll-formed value declaration.\\nAt this point, one of the following is expected:\\n  * parameters as irrefutable patterns, e.g. variables, if defining a\\n    function;\\n  * the assignment symbol '=' followed by an expression;\\n  * a type annotation starting with a colon ':';\\n  * a comma ',' followed by another tuple component, if defining a\\n    tuple.\\n\\n```\\n\\n"
+merge_request: '2547'
+title: "Underline red snippet output in no-color mode"
+type: added
+

src/bin/expect_tests/build_module_test.ml

@@ -149,6 +149,7 @@ let%expect_test _ =
     File "../../test/contracts/build/type_B.mligo", line 5, characters 5-6:
       4 | \tlet s = s + 1 in
       5 | \tlet p = p ^ "titi" in
+                ^
       6 | \t([] : operation list), s
     :
     Warning: unused variable "p".
@@ -201,5 +202,6 @@ let%expect_test _ =
     File "../../test/contracts/build/module_scoping_bug.mligo", line 24, characters 8-13:
      23 |
      24 | let x = B.A.a
+                  ^^^^^
 
      Module "B.A" not found. |}]

src/bin/expect_tests/code_insertion.ml

@@ -13,6 +13,7 @@ let%expect_test _ =
 File "../../test/contracts/negative/bad_michelson_insertion_1.mligo", line 4, characters 29-72:
   3 | let main (p : nat) (s : nat) : operation list * nat =
   4 |   let f : nat * nat -> nat = [%Michelson ({| ADD |} : nat * nat -> nat)]
+                                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   5 |   in [], f (p, s)
 
 Raw Michelson must be seq (with curly braces {}), got: ADD. |test}]
@@ -24,6 +25,7 @@ let%expect_test _ =
 File "../../test/contracts/negative/bad_michelson_insertion_2.mligo", line 5, characters 12-16:
   4 |   let f : nat -> nat -> nat = [%Michelson ({| ADD |} : nat -> nat -> nat)]
   5 |   in [], f (p, s)
+                  ^^^^
 
 Invalid type(s)
 Cannot unify "( nat * nat )" with "nat". |test}]

src/bin/expect_tests/colour.ml

@@ -46,6 +46,7 @@ let%expect_test _ =
       File "../../test/contracts/negative/colour.mligo", line 6, characters 16-25:
         5 | let main (p : unit) (s : storage) : return =
         6 |   let x : nat = 1 + 2 + 3 (* int *) in
+                            ^^^^^^^^^
         7 |   [],s
 
       Invalid type(s)
@@ -85,6 +86,7 @@ let%expect_test _ =
     File "../../test/contracts/negative/colour_test.mligo", line 3, characters 12-31:
       2 | let test1 = Test.assert (1 = 1)
       3 | let test2 = Test.assert (1 = 2)
+                      ^^^^^^^^^^^^^^^^^^^
 
     Test failed with "failed assertion"
     Trace:
@@ -124,6 +126,7 @@ let%expect_test _ =
     File "../../test/contracts/negative/colour.mligo", line 6, characters 16-25:
       5 | let main (p : unit) (s : storage) : return =
       6 |   let x : nat = 1 + 2 + 3 (* int *) in
+                          ^^^^^^^^^
       7 |   [],s
 
     Invalid type(s)