diff --git a/app/Main.hs b/app/Main.hs index 727ebf5..03b2e8d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -134,15 +134,16 @@ onDiscordStart conf@Config {..} eventSystem = do onDiscordEvent :: Config -> E.EventSystem -> Event -> Discord.DiscordHandler () onDiscordEvent conf@Config {..} eventSystem (Ready _ _ _ _ _ _ (PartialApplication i _)) = do + liftIO $ putStrLn "onready" mapM_ (maybe (return ()) (void . Discord.restCall . R.CreateGuildApplicationCommand i configServer) ) [ pingCommand - , edtCommand conf + -- , edtCommand conf , remindCommand - , groupCommand conf + -- , groupCommand conf , helpCommand ]