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 () = ()