diff options
| author | adambrangenberg <adabran06@gmail.com> | 2025-12-24 07:18:04 +0100 |
|---|---|---|
| committer | adambrangenberg <adabran06@gmail.com> | 2025-12-24 07:18:04 +0100 |
| commit | 4da55d6434f6077f35466c9c0dfe3c29ee33f984 (patch) | |
| tree | 2e5935721696c26a9be09b24b5a2457d71398b0d /src/Endpoints/CapabilitiesEndpoint.hs | |
| parent | 3e2060422ed51096fc71148c55c47d5767593846 (diff) | |
Protecting CapabilitiesEndpoint via Auth
Diffstat (limited to 'src/Endpoints/CapabilitiesEndpoint.hs')
| -rw-r--r-- | src/Endpoints/CapabilitiesEndpoint.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Endpoints/CapabilitiesEndpoint.hs b/src/Endpoints/CapabilitiesEndpoint.hs index 92fefba..5c1ffde 100644 --- a/src/Endpoints/CapabilitiesEndpoint.hs +++ b/src/Endpoints/CapabilitiesEndpoint.hs @@ -8,6 +8,8 @@ import Servant import qualified Data.Map as Map import Model.Capabilities +import Auth (AuthProtect) +import Data.User (User (..)) ---------------------------------------------------------------------------------------------------- type CapabilitiesAPI = GetCapabilities @@ -17,10 +19,11 @@ capabilitiesServer = handleCapabilitiesGet --- GET /_matrix/client/v3/capabilities ------------------------------------------------------------ type GetCapabilities = "_matrix" :> "client" :> "v3" :> "capabilities" + :> AuthProtect "user-auth" :> Get '[JSON] CapabilitiesResponse -handleCapabilitiesGet :: Handler CapabilitiesResponse -handleCapabilitiesGet = return $ CapabilitiesResponse +handleCapabilitiesGet :: User -> Handler CapabilitiesResponse +handleCapabilitiesGet _ = return $ CapabilitiesResponse { pid_changes = BooleanCapability False , change_password = BooleanCapability False , get_login_token = BooleanCapability False |