From 1177d9e62e325450bca65ad45441d1f0e0259bd5 Mon Sep 17 00:00:00 2001
From: yingrueil <yingrueil@synology.com>
Date: Mon, 26 May 2025 13:15:17 +0800
Subject: [PATCH] Support latest message types

---
 .../Calamity/Types/Model/Channel/Message.hs   | 37 ++++++++++++++++++-
 1 file changed, 35 insertions(+), 2 deletions(-)

diff --git a/calamity/Calamity/Types/Model/Channel/Message.hs b/calamity/Calamity/Types/Model/Channel/Message.hs
index 2e404e1..151d0db 100644
--- a/calamity/Calamity/Types/Model/Channel/Message.hs
+++ b/calamity/Calamity/Types/Model/Channel/Message.hs
@@ -206,7 +206,24 @@ data MessageType
   | GuildDiscoveryDisqualified
   | GuildDiscoveryRequalified
   | Reply
-  | ApplicationCommmand
+  | ChatInputCommand
+  | ThreadStartedMessage
+  | GuildInviteReminder
+  | ContextMenuCommand
+  | AutoModerationAction
+  | RoleSubscriptionPurchase
+  | InteractionPremiumUpsell
+  | StageStart
+  | StageEnd
+  | StageSpeaker
+  | StageTopic
+  | GuildApplicationPremiumSubscription
+  | GuildIncidentAlertModeEnabled
+  | GuildIncidentAlertModeDisabled
+  | GuildIncidentReportRaid
+  | GuildIncidentReportFalseAlarm
+  | PurchaseNotification
+  | PollResult
   deriving (Eq, Show, Enum)
 
 instance Aeson.FromJSON MessageType where
@@ -228,7 +245,23 @@ instance Aeson.FromJSON MessageType where
       14 -> pure GuildDiscoveryDisqualified
       15 -> pure GuildDiscoveryRequalified
       19 -> pure Reply
-      20 -> pure ApplicationCommmand
+      20 -> pure ChatInputCommand
+      21 -> pure GuildInviteReminder
+      22 -> pure ContextMenuCommand
+      23 -> pure AutoModerationAction
+      24 -> pure RoleSubscriptionPurchase
+      25 -> pure InteractionPremiumUpsell
+      26 -> pure StageStart
+      27 -> pure StageEnd
+      28 -> pure StageSpeaker
+      31 -> pure StageTopic
+      32 -> pure GuildApplicationPremiumSubscription
+      36 -> pure GuildIncidentAlertModeEnabled
+      37 -> pure GuildIncidentAlertModeDisabled
+      38 -> pure GuildIncidentReportRaid
+      39 -> pure GuildIncidentReportFalseAlarm
+      44 -> pure PurchaseNotification
+      46 -> pure PollResult
       _ -> fail $ "Invalid MessageType: " <> show n
     Nothing -> fail $ "Invalid MessageType: " <> show n