Logging example before applying writer

pre-writer.fs

let getSuperUserData (super, log: Logger) =

  let sw = Stopwatch.StartNew()
  let service = getService ()
  let result = service.getSuperUserDetails super
  log.info ({| serviceElapsed = sw.ElapsedMilliseconds |})

  match result with
  | Ok res ->
    log.info ({| serviceResult = "success" |})
    Some res

  | Error e ->
    log.info ({| serviceResult = "error"; error = e |})
    None


let doWork (input, log: Logger) =
  let sw = Stopwatch.StartNew()

  log.info ({| userId = input.UserId |})

  match input.Status with
  | Valid -> log.info ({| status = "valid" |})
  // ...

  | Invalid -> log.info ({| status = "invalid" |})
  // ...

  let result =
    match input.Subscription with
    | Basic -> None
    | Super super -> getSuperUserData (super, log)

  log.info ({| totalElapsed = sw.ElapsedMilliseconds |})
  // ...

  result


[<EntryPoint>]
let main input =
  let log = getLogger ()
  doWork (input, log) |> ignore
  0