Force coloured output on non-MSVC

Signed-off-by: Antonin Décimo <antonin@tarides.com>
ocaml · Jan 6, 2021 · 7aad7d5 · 7aad7d5
1 parent 9cb9b44
commit 7aad7d5
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/dune_rules/super_context.ml b/src/dune_rules/super_context.ml
@@ -10,6 +10,14 @@ let default_context_flags (ctx : Context.t) =
   let cxx =
     List.filter c ~f:(fun s -> not (String.is_prefix s ~prefix:"-std="))
   in
+  let c, cxx =
+    if Lazy.force (Ansi_color.stderr_supports_color)
+       && Ocaml_config.ccomp_type ctx.ocaml_config <> Msvc then
+       let colors = "-fdiagnostics-color=always" in
+       colors :: c, colors :: cxx
+    else
+      c, cxx
+  in
   Foreign_language.Dict.make ~c ~cxx
 
 module Env_tree : sig