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