namespace Logger.Types

open System

type Severity = DEBUG = 1 | INFO = 2 | WARNING = 3 | ERROR = 4 | FATAL = 5

type internal Message =
    {
        Message : string
        ThreadName : string
        ThreadId : int
        ModuleCaller : string
        Severity : Severity
        DateTime : DateTime
    }

type internal Command =
    | Write of Message
    | Shutdown of AsyncReplyChannel<unit>
    | Flush of AsyncReplyChannel<unit>
    | ClearLogFilesOlderThan of TimeSpan
    | SetAvoidRepeatingIdenticalMessage of bool

exception NoLogDirectoryDefinedException