{-# 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"]