Improve error reporting in github actions

Author: albertwoo

Fun.Build/CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## [Unreleased]
 
+## [1.1.13] - 2024-10-21
+
+- Improve error reporting in github actions
+
 ## [1.1.12] - 2024-10-21
 
 - Improve error reporting in github actions

Fun.Build/PipelineContextExtensions.fs

@@ -59,12 +59,12 @@ module PipelineContextExtensionsInternal =
             }
 
 
-        member this.GetErrorPrefix() =
+        member this.PrintError(msg: string) =
             if this.EnvVars.ContainsKey("GITHUB_ENV") then
                 let title = "[PIPELINE] " + this.Name.Replace(",", "_")
-                $"::error title={title}::"
+                AnsiConsole.WriteLine $"::error title={title}::{msg}"
             else
-                "Error: "
+                AnsiConsole.MarkupLineInterpolated $"[red]Error: {msg}[/]"
 
 
         member this.RunStages(stages: StageContext seq, cancelToken: Threading.CancellationToken, ?failfast: bool) =
@@ -163,7 +163,7 @@ module PipelineContextExtensionsInternal =
             if pipelineExns.Count > 0 then
                 for exn in pipelineExns do
                     let innerMessage = if exn.InnerException <> null then exn.InnerException.Message else ""
-                    AnsiConsole.MarkupLineInterpolated $"[red]{this.GetErrorPrefix()}{exn.Message} {innerMessage}[/]"
+                    this.PrintError(exn.Message + " " + innerMessage)
                 AnsiConsole.WriteLine()
                 raise (PipelineFailedException("Pipeline is failed because of exception", pipelineExns[0]))
             else if hasError then

Fun.Build/StageContextExtensions.fs

@@ -62,12 +62,13 @@ module StageContextExtensionsInternal =
             |> fun x -> x + ctx.Name
 
 
-        member ctx.GetErrorPrefix() =
+        member ctx.PrinterError(msg: string) =
             match ctx.TryGetEnvVar("GITHUB_ENV") with
             | ValueSome _ ->
                 let title = "[STAGE] " + ctx.GetNamePath().Replace(",", "_")
-                $"::error title={title}::"
-            | _ -> "Error: "
+                AnsiConsole.WriteLine $"::error title={title}::{msg}"
+
+            | _ -> AnsiConsole.MarkupLineInterpolated $"""[red]Error: {msg}[/]"""
 
 
         member ctx.GetNoPrefixForStep() =
@@ -255,10 +256,12 @@ module StageContextExtensionsInternal =
                                         | Error e ->
                                             if String.IsNullOrEmpty e |> not then
                                                 if not isParallel && stage.GetNoPrefixForStep() then
-                                                    AnsiConsole.MarkupLineInterpolated $"""[red]{stage.GetErrorPrefix()}{e}[/]"""
+                                                    stage.PrinterError(e)
                                                 else
-                                                    AnsiConsole.MarkupLineInterpolated $"""[red]{stage.GetErrorPrefix()}{prefix} {e}[/]"""
+                                                    stage.PrinterError(prefix + " " + e)
+
                                             return false
+
                                         | Ok _ -> return true
                                       }
                                     | Step.StepOfStage subStage -> async {