module Wire.API.FederationUpdate
  ( getFederationDomainConfigs,
  )
where

import Imports
import Servant.Client (ClientEnv, ClientError, runClientM)
import Wire.API.Routes.FederationDomainConfig
import Wire.API.Routes.Internal.Brig qualified as IAPI
import Wire.API.Routes.Named (namedClient)

getFederationDomainConfigs :: ClientEnv -> IO (Either ClientError FederationDomainConfigs)
getFederationDomainConfigs :: ClientEnv -> IO (Either ClientError FederationDomainConfigs)
getFederationDomainConfigs = ClientM FederationDomainConfigs
-> ClientEnv -> IO (Either ClientError FederationDomainConfigs)
forall a. ClientM a -> ClientEnv -> IO (Either ClientError a)
runClientM (ClientM FederationDomainConfigs
 -> ClientEnv -> IO (Either ClientError FederationDomainConfigs))
-> ClientM FederationDomainConfigs
-> ClientEnv
-> IO (Either ClientError FederationDomainConfigs)
forall a b. (a -> b) -> a -> b
$ forall api (name :: Symbol) (m :: * -> *) endpoint.
(HasEndpoint api endpoint name, HasClient m endpoint) =>
Client m endpoint
namedClient @IAPI.API @"get-federation-remotes"