X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FLogger%2FTypes.fs;fp=Parasitemia%2FLogger%2FTypes.fs;h=45a5a64dee32439076829cd1ce399643c463412d;hp=0000000000000000000000000000000000000000;hb=8cf2153bd18919de41745534d3dbf134f085e13c;hpb=6250f10c807301a760b8659f9c00ca6dbbd4c7b7

diff --git a/Parasitemia/Logger/Types.fs b/Parasitemia/Logger/Types.fs
new file mode 100644
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