From f90d752a47d677035d147b650636f8103132ba6f Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Wed, 24 Dec 2025 09:24:44 +0100 Subject: Add actual access tokens through JWT --- src/Endpoints/CapabilitiesEndpoint.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Endpoints/CapabilitiesEndpoint.hs') 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 -- cgit v1.2.3