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