Bump the loop

This commit is contained in:
Joseph Ferano 2022-05-06 15:55:17 +07:00
parent ff9854b88d
commit 9d42213ec6

View File

@ -395,7 +395,7 @@ let sendEmbedWithLoop (jackpotNumChannel : DiscordChannel) (slotsChannel : Disco
| [] -> sendEmbed jackpotNumChannel slotsChannel None | [] -> sendEmbed jackpotNumChannel slotsChannel None
| msg::_ -> async.Return (Some msg) | msg::_ -> async.Return (Some msg)
while true do while true do
do! Async.Sleep 5000 do! Async.Sleep 30000
do! sendEmbed jackpotNumChannel slotsChannel message |> Async.Ignore do! sendEmbed jackpotNumChannel slotsChannel message |> Async.Ignore
} |> Async.Start } |> Async.Start