Sample usage of Logary with Suave from @haf

Suave-Logary.fs

type TraceLogger(name, minLevel) =
  let logWithAck level fac =
    if level < minLevel then async.Return () else
    async {
      let m = fac level
      match m.value, level with
      | Event event, _ when level >= LogLevel.Error ->
        System.Diagnostics.Trace.TraceError(event, [||])
      | Event event, _ when level = LogLevel.Warn ->
        System.Diagnostics.Trace.TraceWarning(event, [||])
      | Event event, _ ->
        System.Diagnostics.Trace.TraceInformation(event, [||])
      | _ ->
        ()
    }
  interface Logger with
    member x.name = name
    member x.logWithAck level fac = logWithAck level fac
    member x.log level fac = logWithAck level fac