blob: e5739cf41afd854d96a417fad649043a65d30f8a (
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 #-}
module Endpoints.VersionsEndpoint (VersionsAPI, versionsServer) where
import Servant
import Data.Text (pack)
import Model.Versions
----------------------------------------------------------------------------------------------------
type VersionsAPI = GetVersions
versionsServer :: Server VersionsAPI
versionsServer = handleVersionsGet
-- http://localhost:8080
--- GET /_matrix/client/versions -------------------------------------------------------------------
type GetVersions = "_matrix" :> "client" :> "versions"
:> Get '[JSON] VersionsResponse
handleVersionsGet :: Handler VersionsResponse
handleVersionsGet = return $ VersionsResponse [pack "v1.12"]
|