blob: d091b1dbdd045cec470c0290a396d51ad3c2571b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# 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")
|