blob: b6104ae5c0e61666ab634e7886fb60ed6ec12f1c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
module Endpoints.WellKnownSupportEndpoint (WellKnownSupportAPI, handleWellKnownSupport) where
import Servant
import Data.WellKnownSupportData
import Data.ContactData
type WellKnownSupportAPI = ".well-known" :> "matrix" :> "support" :> Get '[JSON] WellKnownSupport
handleWellKnownSupport :: Handler WellKnownSupport
handleWellKnownSupport =
return (
makeWellKnownSupport
[makeContact "email" "mxid" "m.role.admin"]
"http://localhost:8080/support.html"
)
|