blob: b5e2b2b2ca7d2953e059b0707dd57b22a6c571bb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE TypeOperators #-}
module Endpoints.ServerLib (server) where
import Servant
import Endpoints.WellKnownEndpoint
import Endpoints.APILib
import Endpoints.VersionsEndpoint
import Endpoints.LoginEndpoint
import Endpoints.ProfileEndpoint
import Endpoints.CapabilitiesEndpoint
----------------------------------------------------------------------------------------------------
server :: Server API
server = wellKnownServer
:<|> versionsServer
:<|> loginServer
:<|> profileServer
:<|> capabilitiesServer
|