From 3e2060422ed51096fc71148c55c47d5767593846 Mon Sep 17 00:00:00 2001
From: adambrangenberg <adabran06@gmail.com>
Date: Wed, 24 Dec 2025 05:09:27 +0100
Subject: Section 5: Capabilities complete

---
 src/Model/Capabilities.hs | 61 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 src/Model/Capabilities.hs

(limited to 'src/Model/Capabilities.hs')

diff --git a/src/Model/Capabilities.hs b/src/Model/Capabilities.hs
new file mode 100644
index 0000000..f6ab372
--- /dev/null
+++ b/src/Model/Capabilities.hs
@@ -0,0 +1,61 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+
+module Model.Capabilities (CapabilitiesResponse (..)
+                          , BooleanCapability (..)
+                          , ProfileFieldsCapability (..)
+                          , RoomVersionsCapability (..)
+                          ) where
+
+import Data.Aeson
+import GHC.Generics (Generic)
+import Data.Text (Text)
+import Data.Map
+
+import Util (Normalisable(..))
+
+----------------------------------------------------------------------------------------------------
+data BooleanCapability = BooleanCapability
+  { enabled :: Bool
+  } deriving (Eq, Show, Generic)
+
+instance ToJSON BooleanCapability
+
+data ProfileFieldsCapability = ProfileFieldsCapability
+  { enabled :: Bool
+  , allowed :: Maybe [Text]
+  , disallowed :: Maybe [Text]
+  } deriving (Eq, Show, Generic)
+
+instance ToJSON ProfileFieldsCapability
+
+data RoomVersionsCapability = RoomVersionsCapability
+  { default' :: Text
+  , available :: Map Text Text
+  } deriving (Eq, Show, Generic)
+
+instance ToJSON RoomVersionsCapability where
+  toJSON = genericToJSON defaultOptions { fieldLabelModifier = normaliseVariant }
+
+data CapabilitiesResponse = CapabilitiesResponse
+  { pid_changes :: BooleanCapability
+  , change_password :: BooleanCapability
+  , get_login_token :: BooleanCapability
+  , profile_fields :: ProfileFieldsCapability
+  , room_versions :: RoomVersionsCapability
+  , set_avatar_url :: BooleanCapability
+  , set_display_name :: BooleanCapability
+  } deriving (Eq, Show, Generic)
+
+instance ToJSON CapabilitiesResponse where
+  toJSON = genericToJSON defaultOptions { fieldLabelModifier = \name ->
+      case name of
+        "pid_changes" -> "m.3pid_changes"
+        "change_password" -> "m.change_password"
+        "get_login_token" -> "m.get_login_token"
+        "profile_fields" -> "m.profile_fields"
+        "room_versions" -> "m.room_versions"
+        "set_avatar_url" -> "m.set_avatar_url"
+        "set_display_name" -> "m.set_displayname"
+        other -> other
+    }
-- 
cgit v1.2.3