diff options
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 |