{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}

module Endpoints.WellKnownClientEndpoint (WellKnownClientAPI, handleWellKnownClient) where

import Servant
import Data.WellKnownClientData

type WellKnownClientAPI = ".well-known" :> "matrix" :> "client" :> Get '[JSON] WellKnownClient

handleWellKnownClient :: Handler WellKnownClient
handleWellKnownClient = return (makeWellKnownClient "http://localhost:8080" "http://localhost:8080")