From 2b48a574e8b9fed03a5c1969af4bb1e338f1be26 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 7 Dec 2025 06:36:43 +0100 Subject: implemented section 1-3 --- src/Endpoints/WellKnownClientEndpoint.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 src/Endpoints/WellKnownClientEndpoint.hs (limited to 'src/Endpoints/WellKnownClientEndpoint.hs') diff --git a/src/Endpoints/WellKnownClientEndpoint.hs b/src/Endpoints/WellKnownClientEndpoint.hs new file mode 100644 index 0000000..d091b1d --- /dev/null +++ b/src/Endpoints/WellKnownClientEndpoint.hs @@ -0,0 +1,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") -- cgit v1.2.3