8 type internal ConsoleWriter () =
10 interface IWriter with
11 member val DebugLoggingEnabled = false with get
, set
12 member val AvoidRepeatingIdenticalMessages = false with get
, set
// Not implemented: TODO.
14 member this
.LogDir = "" // Not relevant.
15 member val MaxSizeFile = 0L with get
, set
// Not relevant.
16 member this
.LogFiles = Seq.empty
// Not relevant.
18 member this
.Write (message
: Message) =
19 let header = Utils.formatHeader message
20 Console.WriteLine (Utils.formatMessage
header message
.Message)
22 member this
.Flush () = () // Not relevant.
23 member this
.ClearLogFilesOlderThan (timeOld
: TimeSpan) = () // Not relevant.
25 interface IDisposable with
26 member this
.Dispose () = ()