diff --git a/src/Bot/Logging.fs b/src/Bot/Logging.fs new file mode 100644 index 0000000..5808e68 --- /dev/null +++ b/src/Bot/Logging.fs @@ -0,0 +1,8 @@ +namespace Bot + +module Logging = + + open System + + let log message = + printfn "[%A] [Info] %s" DateTime.Now message \ No newline at end of file diff --git a/src/Bot/WebsiteCheckLoop.fs b/src/Bot/WebsiteCheckLoop.fs index 36ebd21..c34999b 100644 --- a/src/Bot/WebsiteCheckLoop.fs +++ b/src/Bot/WebsiteCheckLoop.fs @@ -2,13 +2,10 @@ namespace Bot module WebsiteCheckLoop = - open System + open Logging open DSharpPlus open Channels - let private log message = - printfn "[%A] [Info] %s" DateTime.Now message - let private sendToChannelWith (client:DiscordClient) message id = log <| sprintf "Sending message to channel: %A" id id