library discord-haskell
    import: warnings
    build-depends:
        base ^>=4.18.1.0,
    hs-source-dirs: vendor/discord-haskell

    exposed-modules:
        Discord,
        Discord.Interactions,
        Discord.Types,

packages: . vendor/discord-haskell

import Discord.Interactions

slashDiffCommand :: Maybe CreateApplicationCommand
slashDiffCommand = options <$> createChatInput "diff" "Check the diff of two decklists"
  where
    options command =
        command
            { createOptions =
                Just $
                    OptionsValues
                        [ OptionValueAttachment "old" Nothing "Old decklist" Nothing True
                        , OptionValueAttachment "new" Nothing "New decklist" Nothing True
                        ]
            }

    Ready _ _ _ _ _ _ (PartialApplication appId _) -> onReady appId
    InteractionCreate intr -> liftIO $ print intr

onReady :: ApplicationId -> DiscordHandler ()
onReady appId = case slashDiffCommand of
    Nothing -> pure ()
    Just command -> do
        res <- restCall $ Request.CreateGlobalApplicationCommand appId command
        case res of
            Left e -> liftIO $ print e
            Right validCmds -> do
                liftIO $ putStrLn "Command successfully registered"
                registered <- restCall $ Request.GetGlobalApplicationCommands appId
                case registered of
                    Left _ -> liftIO $ putStrLn "error occured"
                    Right cmds -> do
                        let validId = applicationCommandId validCmds
                            outdatedIds = filter (/= validId) . map applicationCommandId $ cmds
                         in forM_ outdatedIds $
                                restCall . Request.DeleteGlobalApplicationCommand appId