diff options
| author | adambrangenberg <adabran06@gmail.com> | 2025-12-24 09:24:44 +0100 |
|---|---|---|
| committer | adambrangenberg <adabran06@gmail.com> | 2025-12-24 09:24:44 +0100 |
| commit | f90d752a47d677035d147b650636f8103132ba6f (patch) | |
| tree | 5d6ae46de0cec142d77c567f6ee2e0e567356ad3 /src/Endpoints/CapabilitiesEndpoint.hs | |
| parent | 4da55d6434f6077f35466c9c0dfe3c29ee33f984 (diff) | |
Add actual access tokens through JWT
Diffstat (limited to 'src/Endpoints/CapabilitiesEndpoint.hs')
| -rw-r--r-- | src/Endpoints/CapabilitiesEndpoint.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Endpoints/CapabilitiesEndpoint.hs b/src/Endpoints/CapabilitiesEndpoint.hs index 5c1ffde..169ca21 100644 --- a/src/Endpoints/CapabilitiesEndpoint.hs +++ b/src/Endpoints/CapabilitiesEndpoint.hs @@ -8,8 +8,8 @@ import Servant import qualified Data.Map as Map import Model.Capabilities -import Auth (AuthProtect) -import Data.User (User (..)) +import Auth (UserAuth) +import Data.User (User (User)) ---------------------------------------------------------------------------------------------------- type CapabilitiesAPI = GetCapabilities @@ -19,7 +19,7 @@ capabilitiesServer = handleCapabilitiesGet --- GET /_matrix/client/v3/capabilities ------------------------------------------------------------ type GetCapabilities = "_matrix" :> "client" :> "v3" :> "capabilities" - :> AuthProtect "user-auth" + :> UserAuth :> Get '[JSON] CapabilitiesResponse handleCapabilitiesGet :: User -> Handler CapabilitiesResponse |