blob: 73113a7e45604cfec707949f9affae79e7a4fcbf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE OverloadedStrings #-}
module Endpoints.VersionsEndpoint (VersionsAPI, versionsServer) where
import Servant
import Model.Versions
----------------------------------------------------------------------------------------------------
type VersionsAPI = GetVersions
versionsServer :: Server VersionsAPI
versionsServer = handleVersionsGet
--- GET /_matrix/client/versions -------------------------------------------------------------------
type GetVersions = "_matrix" :> "client" :> "versions"
:> Get '[JSON] VersionsResponse
handleVersionsGet :: Handler VersionsResponse
handleVersionsGet = return $ VersionsResponse ["v1.12"]
|