Silent Fake (F# Make) 控制台应用程序

Question

I would like to run a standalone console application with Fake targets less noisy.

For example

open Fake.Core
open Fake.IO

let initializeContext () =
    let execContext = Context.FakeExecutionContext.Create false "build.fsx" []
    Context.setExecutionContext (Context.RuntimeContext.Fake execContext)

let runOrDefault args =
    try
        match args with
        | [| target |] -> Target.runOrDefault target
        | _ -> Target.runOrDefault "Run"
        0
    with e ->
        printfn "%A" e
        1

initializeContext()

// *** Define Targets ***
Target.create "Hello" (fun _ ->
  printfn "hello from FAKE!"
)

[<EntryPoint>]
let main args = runOrDefault args

Shell

-> dotnet run -- Hello

run Hello
bla bla

The output should be "hello from FAKE.".

Answer 1

There doesn't seem to be any knobs to turn this off. For example, the "Building project with version..." message is always printed .

You can work around it though by changing what the standard do.net printf functions do with a no-op writer set with Console.SetOut , replacing the default trace listener in FAKE's CoreTracing , and explicitly writing to stdout for your result.

module private ExecutionContext =
  open System
  open System.IO
  open System.Text

  module Out =

    let stdout = Console.Out

    let noop =
      { new TextWriter() with
          override _.Encoding = Encoding.UTF8
      }

    /// Supress all logging from FAKE.
    let silence () =
      CoreTracing.setTraceListeners []
      Console.SetOut noop

    let private monitor = Object ()

    /// Print something to stdout.
    let print str =
      lock monitor (fun () ->
        let prev = Console.Out
        Console.SetOut stdout
        printfn $"{str}"
        Console.SetOut prev
      )

let init () =
  Target.create "example" (fun _ ->
    ExecutionContext.Out.print "Hello.")

[<EntryPoint>]
let main argv =
  argv
  |> Array.toList
  |> Context.FakeExecutionContext.Create false "build.fsx"
  |> Context.RuntimeContext.Fake
  |> Context.setExecutionContext

  if Array.contains "--silent" argv then
    ExecutionContext.Out.silence ()

  let _ = init ()
  let ctx = Target.WithContext.runOrDefaultWithArguments "build"
  Target.updateBuildStatus ctx

  match Target.results ctx with
  | Ok () -> 0
  | Error _ -> 1