+namespace Logger
+
+open System
+open System.Threading
+
+open Logger.Types
+
+type internal ConsoleWriter () =
+
+ interface IWriter with
+ member val DebugLoggingEnabled = false with get, set
+ member val AvoidRepeatingIdenticalMessages = false with get, set // Not implemented: TODO.
+
+ member this.LogDir = "" // Not relevant.
+ member val MaxSizeFile = 0L with get, set // Not relevant.
+ member this.LogFiles = Seq.empty // Not relevant.
+
+ member this.Write (message : Message) =
+ let header = Utils.formatHeader message
+ Console.WriteLine (Utils.formatMessage header message.Message)
+
+ member this.Flush () = () // Not relevant.
+ member this.ClearLogFilesOlderThan (timeOld : TimeSpan) = () // Not relevant.
+
+ interface IDisposable with
+ member this.Dispose () = ()
\ No newline at end of file