diff --git a/src/Bot/Logging.fs b/src/Bot/Logging.fs new file mode 100644 index 0000000000000000000000000000000000000000..5808e68c1d0330c68757f0eb7db7983df9cd723f --- /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 36ebd21eca97b9a4c688f718a52f51c92e44d30d..c34999b5757b280c275748a26bb0efd45f88864f 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