live patches

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
       ]