Upgrade the logger component

[master-thesis.git] / Parasitemia / Logger / Types.fs

diff --git a/Parasitemia/Logger/Types.fs b/Parasitemia/Logger/Types.fs
new file mode 100644 (file)
index 0000000..45a5a64
--- /dev/null
+++ b/Parasitemia/Logger/Types.fs
@@ -0,0 +1,24 @@
+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
\ No newline at end of file