aboutsummaryrefslogtreecommitdiff
path: root/src/Endpoints/VersionsEndpoint.hs
diff options
context:
space:
mode:
authoradambrangenberg <adabran06@gmail.com>2025-12-24 05:09:10 +0100
committeradambrangenberg <adabran06@gmail.com>2025-12-24 05:09:10 +0100
commit34cba7d0f9faffe7b97692ccc6b3402fced63cbb (patch)
treea638fb60eb4899a427f21f13ab2d497bf5fd3e6e /src/Endpoints/VersionsEndpoint.hs
parenta0886694f73fc382d78da79ab8bfb27475757bab (diff)
Refactor
Diffstat (limited to 'src/Endpoints/VersionsEndpoint.hs')
-rw-r--r--src/Endpoints/VersionsEndpoint.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Endpoints/VersionsEndpoint.hs b/src/Endpoints/VersionsEndpoint.hs
index e5739cf..73113a7 100644
--- a/src/Endpoints/VersionsEndpoint.hs
+++ b/src/Endpoints/VersionsEndpoint.hs
@@ -1,10 +1,10 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE OverloadedStrings #-}
module Endpoints.VersionsEndpoint (VersionsAPI, versionsServer) where
import Servant
-import Data.Text (pack)
import Model.Versions
@@ -13,10 +13,10 @@ 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"]
+handleVersionsGet = return $ VersionsResponse ["v1.12"]