summaryrefslogtreecommitdiff
path: root/Jennisys/Jennisys/Logger.fs
diff options
context:
space:
mode:
Diffstat (limited to 'Jennisys/Jennisys/Logger.fs')
-rw-r--r--Jennisys/Jennisys/Logger.fs41
1 files changed, 0 insertions, 41 deletions
diff --git a/Jennisys/Jennisys/Logger.fs b/Jennisys/Jennisys/Logger.fs
deleted file mode 100644
index dbf762cd..00000000
--- a/Jennisys/Jennisys/Logger.fs
+++ /dev/null
@@ -1,41 +0,0 @@
-// #######################################################
-/// Simple logging facility
-///
-/// author: Aleksandar Milicevic (t-alekm@microsoft.com)
-// #######################################################
-
-module Logger
-
-let newline = System.Environment.NewLine
-
-let _ALL = 100
-let _TRACE = 90
-let _DEBUG = 70
-let _INFO = 50
-let _WARN = 40
-let _ERROR = 20
-let _NONE = 0
-
-let logLevel = _ALL
-
-let Log level msg =
- if logLevel >= level then
- printf "%s" msg
-
-let LogLine level msg =
- Log level (msg + newline)
-
-let Trace msg = Log _TRACE msg
-let TraceLine msg = LogLine _TRACE msg
-
-let Debug msg = Log _DEBUG msg
-let DebugLine msg = LogLine _DEBUG msg
-
-let Info msg = Log _INFO msg
-let InfoLine msg = LogLine _INFO msg
-
-let Warn msg = Log _WARN msg
-let WarnLine msg = LogLine _WARN msg
-
-let Error msg = Log _ERROR msg
-let ErrorLine msg = LogLine _ERROR msg \ No newline at end of file