Parasitemia/Logger/ConsoleWriter.fs

   1 namespace Logger
   2
   3 open System
   4 open System.Threading
   5
   6 open Logger.Types
   7
   8 type internal ConsoleWriter () =
   9
  10     interface IWriter with
  11         member val DebugLoggingEnabled = false with get, set
  12         member val AvoidRepeatingIdenticalMessages = false with get, set // Not implemented: TODO.
  13
  14         member this.LogDir = "" // Not relevant.
  15         member val MaxSizeFile = 0L with get, set // Not relevant.
  16         member this.LogFiles = Seq.empty // Not relevant.
  17
  18         member this.Write (message : Message) =
  19             let header = Utils.formatHeader message
  20             Console.WriteLine (Utils.formatMessage header message.Message)
  21
  22         member this.Flush () = () // Not relevant.
  23         member this.ClearLogFilesOlderThan (timeOld : TimeSpan) = () // Not relevant.
  24
  25     interface IDisposable with
  26         member this.Dispose () = ()