Async.Start store

This commit is contained in:
Joseph Ferano 2022-06-07 21:42:24 +07:00
parent 3f5c9f9652
commit ba56e53fb0
2 changed files with 4 additions and 0 deletions

View File

@ -357,6 +357,9 @@ let handleStoreEvents _ (event : ComponentInteractionCreateEventArgs) =
builder.Content <- $"Incorrect Action identifier {id}" builder.Content <- $"Incorrect Action identifier {id}"
do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
} }
|> Async.AwaitTask
|> Async.Start
Task.CompletedTask
let sendBackalleyEmbed (ctx : IDiscordContext) = let sendBackalleyEmbed (ctx : IDiscordContext) =
async { async {

View File

@ -3,6 +3,7 @@
open Npgsql.FSharp open Npgsql.FSharp
open DSharpPlus open DSharpPlus
open DSharpPlus.Entities open DSharpPlus.Entities
open Solnet.Programs
open dotenv.net open dotenv.net
let prodEnv = DotEnv.Read(DotEnvOptions(envFilePaths = [ "./.prod.env" ])) let prodEnv = DotEnv.Read(DotEnvOptions(envFilePaths = [ "./.prod.env" ]))