From cb419a1106271e01bf0c77f09871bd9e1277294b Mon Sep 17 00:00:00 2001
From: "Antoine \"Annwan\" Combet" <annwan@annwan.me>
Date: Sun, 4 Sep 2022 09:37:36 +0000
Subject: [PATCH] live patches

---
 app/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
       ]