{-# LANGUAGE StrictData #-}

-- This file is part of the Wire Server implementation.
--
-- Copyright (C) 2022 Wire Swiss GmbH <opensource@wire.com>
--
-- This program is free software: you can redistribute it and/or modify it under
-- the terms of the GNU Affero General Public License as published by the Free
-- Software Foundation, either version 3 of the License, or (at your option) any
-- later version.
--
-- This program is distributed in the hope that it will be useful, but WITHOUT
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-- FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
-- details.
--
-- You should have received a copy of the GNU Affero General Public License along
-- with this program. If not, see <https://www.gnu.org/licenses/>.

module Galley.App
  ( -- * Environment
    Env,
    reqId,
    options,
    applog,
    manager,
    federator,
    brig,
    cstate,
    deleteQueue,
    createEnv,
    extEnv,
    aEnv,
    ExtEnv (..),
    extGetManager,

    -- * Running Galley effects
    GalleyEffects,
    evalGalleyToIO,
    ask,
    DeleteItem (..),
    toServantHandler,
  )
where

import Bilge hiding (Request, header, host, options, port, statusCode, statusMessage)
import Cassandra hiding (Set)
import Cassandra.Util (initCassandraForService)
import Control.Error hiding (err)
import Control.Lens hiding ((.=))
import Data.Id
import Data.Misc
import Data.Qualified
import Data.Range
import Data.Time.Clock
import Galley.API.Error
import Galley.Aws qualified as Aws
import Galley.Cassandra.Client
import Galley.Cassandra.Code
import Galley.Cassandra.Conversation
import Galley.Cassandra.Conversation.Members
import Galley.Cassandra.ConversationList
import Galley.Cassandra.CustomBackend
import Galley.Cassandra.LegalHold
import Galley.Cassandra.Proposal
import Galley.Cassandra.SearchVisibility
import Galley.Cassandra.Services
import Galley.Cassandra.SubConversation
import Galley.Cassandra.Team
import Galley.Cassandra.TeamFeatures
import Galley.Cassandra.TeamNotifications
import Galley.Effects
import Galley.Effects.FireAndForget
import Galley.Env
import Galley.External
import Galley.Intra.BackendNotificationQueue
import Galley.Intra.Effects
import Galley.Intra.Federator
import Galley.Keys
import Galley.Options hiding (brig, endpoint, federator)
import Galley.Options qualified as O
import Galley.Queue
import Galley.Queue qualified as Q
import Galley.Types.Teams
import HTTP2.Client.Manager (Http2Manager, http2ManagerWithSSLCtx)
import Imports hiding (forkIO)
import Network.AMQP.Extended (mkRabbitMqChannelMVar)
import Network.HTTP.Client (responseTimeoutMicro)
import Network.HTTP.Client.OpenSSL
import Network.Wai.Utilities.JSONResponse
import OpenSSL.Session as Ssl
import Polysemy
import Polysemy.Async
import Polysemy.Error
import Polysemy.Fail
import Polysemy.Input
import Polysemy.Internal (Append)
import Polysemy.Resource
import Polysemy.TinyLog qualified as P
import Servant qualified
import Ssl.Util
import System.Logger qualified as Log
import System.Logger.Class (Logger)
import System.Logger.Extended qualified as Logger
import UnliftIO.Exception qualified as UnliftIO
import Wire.API.Conversation.Protocol
import Wire.API.Error
import Wire.API.Federation.Error
import Wire.API.Team.Feature
import Wire.GundeckAPIAccess (runGundeckAPIAccess)
import Wire.NotificationSubsystem.Interpreter (runNotificationSubsystemGundeck)
import Wire.Rpc
import Wire.Sem.Delay
import Wire.Sem.Logger qualified
import Wire.Sem.Random.IO

-- Effects needed by the interpretation of other effects
type GalleyEffects0 =
  '[ Input ClientState,
     Input Env,
     Error InvalidInput,
     Error InternalError,
     -- federation errors can be thrown by almost every endpoint, so we avoid
     -- having to declare it every single time, and simply handle it here
     Error FederationError,
     Async,
     Delay,
     Fail,
     Embed IO,
     Error JSONResponse,
     Resource,
     Final IO
   ]

type GalleyEffects = Append GalleyEffects1 GalleyEffects0

-- Define some invariants for the options used
validateOptions :: Opts -> IO (Either HttpsUrl (Map Text HttpsUrl))
validateOptions :: Opts -> IO (Either HttpsUrl (Map Text HttpsUrl))
validateOptions Opts
o = do
  let settings' :: Settings
settings' = Getting Settings Opts Settings -> Opts -> Settings
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view Getting Settings Opts Settings
Lens' Opts Settings
settings Opts
o
      optFanoutLimit :: Word32
optFanoutLimit = Int32 -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int32 -> Word32)
-> (Range 1 HardTruncationLimit Int32 -> Int32)
-> Range 1 HardTruncationLimit Int32
-> Word32
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Range 1 HardTruncationLimit Int32 -> Int32
forall (n :: Natural) (m :: Natural) a. Range n m a -> a
fromRange (Range 1 HardTruncationLimit Int32 -> Word32)
-> Range 1 HardTruncationLimit Int32 -> Word32
forall a b. (a -> b) -> a -> b
$ Opts -> Range 1 HardTruncationLimit Int32
currentFanoutLimit Opts
o
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Settings
settings' Settings -> Getting Word16 Settings Word16 -> Word16
forall s a. s -> Getting a s a -> a
^. Getting Word16 Settings Word16
Lens' Settings Word16
maxConvSize Word16 -> Word16 -> Bool
forall a. Ord a => a -> a -> Bool
> Word32 -> Word16
forall a b. (Integral a, Num b) => a -> b
fromIntegral Word32
optFanoutLimit) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
    [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"setMaxConvSize cannot be > setTruncationLimit"
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Settings
settings' Settings -> Getting Word32 Settings Word32 -> Word32
forall s a. s -> Getting a s a -> a
^. Getting Word32 Settings Word32
Lens' Settings Word32
maxTeamSize Word32 -> Word32 -> Bool
forall a. Ord a => a -> a -> Bool
< Word32
optFanoutLimit) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
    [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"setMaxTeamSize cannot be < setTruncationLimit"
  case (Opts
o Opts
-> Getting (Maybe Endpoint) Opts (Maybe Endpoint) -> Maybe Endpoint
forall s a. s -> Getting a s a -> a
^. Getting (Maybe Endpoint) Opts (Maybe Endpoint)
Lens' Opts (Maybe Endpoint)
O.federator, Opts
o Opts
-> Getting (Maybe AmqpEndpoint) Opts (Maybe AmqpEndpoint)
-> Maybe AmqpEndpoint
forall s a. s -> Getting a s a -> a
^. Getting (Maybe AmqpEndpoint) Opts (Maybe AmqpEndpoint)
Lens' Opts (Maybe AmqpEndpoint)
rabbitmq) of
    (Maybe Endpoint
Nothing, Just AmqpEndpoint
_) -> [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"RabbitMQ config is specified and federator is not, please specify both or none"
    (Just Endpoint
_, Maybe AmqpEndpoint
Nothing) -> [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"Federator is specified and RabbitMQ config is not, please specify both or none"
    (Maybe Endpoint, Maybe AmqpEndpoint)
_ -> () -> IO ()
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
  let mlsFlag :: LockableFeature MLSConfig
mlsFlag = Settings
settings' Settings
-> Getting
     (LockableFeature MLSConfig) Settings (LockableFeature MLSConfig)
-> LockableFeature MLSConfig
forall s a. s -> Getting a s a -> a
^. (FeatureFlags -> Const (LockableFeature MLSConfig) FeatureFlags)
-> Settings -> Const (LockableFeature MLSConfig) Settings
Lens' Settings FeatureFlags
featureFlags ((FeatureFlags -> Const (LockableFeature MLSConfig) FeatureFlags)
 -> Settings -> Const (LockableFeature MLSConfig) Settings)
-> ((LockableFeature MLSConfig
     -> Const (LockableFeature MLSConfig) (LockableFeature MLSConfig))
    -> FeatureFlags -> Const (LockableFeature MLSConfig) FeatureFlags)
-> Getting
     (LockableFeature MLSConfig) Settings (LockableFeature MLSConfig)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags -> LockableFeature MLSConfig)
-> (LockableFeature MLSConfig
    -> Const (LockableFeature MLSConfig) (LockableFeature MLSConfig))
-> FeatureFlags
-> Const (LockableFeature MLSConfig) FeatureFlags
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
to (forall cfg.
(GetFeatureDefaults (FeatureDefaults cfg),
 NpProject cfg Features) =>
FeatureFlags -> LockableFeature cfg
featureDefaults @MLSConfig)
      mlsConfig :: MLSConfig
mlsConfig = LockableFeature MLSConfig
mlsFlag.config
      migrationStatus :: FeatureStatus
migrationStatus = (.status) (LockableFeature MlsMigrationConfig -> FeatureStatus)
-> LockableFeature MlsMigrationConfig -> FeatureStatus
forall a b. (a -> b) -> a -> b
$ Settings
settings' Settings
-> Getting
     (LockableFeature MlsMigrationConfig)
     Settings
     (LockableFeature MlsMigrationConfig)
-> LockableFeature MlsMigrationConfig
forall s a. s -> Getting a s a -> a
^. (FeatureFlags
 -> Const (LockableFeature MlsMigrationConfig) FeatureFlags)
-> Settings -> Const (LockableFeature MlsMigrationConfig) Settings
Lens' Settings FeatureFlags
featureFlags ((FeatureFlags
  -> Const (LockableFeature MlsMigrationConfig) FeatureFlags)
 -> Settings -> Const (LockableFeature MlsMigrationConfig) Settings)
-> ((LockableFeature MlsMigrationConfig
     -> Const
          (LockableFeature MlsMigrationConfig)
          (LockableFeature MlsMigrationConfig))
    -> FeatureFlags
    -> Const (LockableFeature MlsMigrationConfig) FeatureFlags)
-> Getting
     (LockableFeature MlsMigrationConfig)
     Settings
     (LockableFeature MlsMigrationConfig)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags -> LockableFeature MlsMigrationConfig)
-> (LockableFeature MlsMigrationConfig
    -> Const
         (LockableFeature MlsMigrationConfig)
         (LockableFeature MlsMigrationConfig))
-> FeatureFlags
-> Const (LockableFeature MlsMigrationConfig) FeatureFlags
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
to (forall cfg.
(GetFeatureDefaults (FeatureDefaults cfg),
 NpProject cfg Features) =>
FeatureFlags -> LockableFeature cfg
featureDefaults @MlsMigrationConfig)
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (FeatureStatus
migrationStatus FeatureStatus -> FeatureStatus -> Bool
forall a. Eq a => a -> a -> Bool
== FeatureStatus
FeatureStatusEnabled Bool -> Bool -> Bool
&& ProtocolTag
ProtocolMLSTag ProtocolTag -> [ProtocolTag] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`notElem` MLSConfig -> [ProtocolTag]
mlsSupportedProtocols MLSConfig
mlsConfig) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
    [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"For starting MLS migration, MLS must be included in the supportedProtocol list"
  Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (MLSConfig -> ProtocolTag
mlsDefaultProtocol MLSConfig
mlsConfig ProtocolTag -> [ProtocolTag] -> Bool
forall a. Eq a => a -> [a] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` MLSConfig -> [ProtocolTag]
mlsSupportedProtocols MLSConfig
mlsConfig) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
    [Char] -> IO ()
forall a. HasCallStack => [Char] -> a
error [Char]
"The list 'settings.featureFlags.mls.supportedProtocols' must include the value in the field 'settings.featureFlags.mls.defaultProtocol'"
  let errMsg :: [Char]
errMsg = [Char]
"Either conversationCodeURI or multiIngress needs to be set."
  case (Settings
settings' Settings
-> Getting (Maybe HttpsUrl) Settings (Maybe HttpsUrl)
-> Maybe HttpsUrl
forall s a. s -> Getting a s a -> a
^. Getting (Maybe HttpsUrl) Settings (Maybe HttpsUrl)
Lens' Settings (Maybe HttpsUrl)
conversationCodeURI, Settings
settings' Settings
-> Getting
     (Maybe (Map Text HttpsUrl)) Settings (Maybe (Map Text HttpsUrl))
-> Maybe (Map Text HttpsUrl)
forall s a. s -> Getting a s a -> a
^. Getting
  (Maybe (Map Text HttpsUrl)) Settings (Maybe (Map Text HttpsUrl))
Lens' Settings (Maybe (Map Text HttpsUrl))
multiIngress) of
    (Maybe HttpsUrl
Nothing, Maybe (Map Text HttpsUrl)
Nothing) -> [Char] -> IO (Either HttpsUrl (Map Text HttpsUrl))
forall a. HasCallStack => [Char] -> a
error [Char]
errMsg
    (Maybe HttpsUrl
Nothing, Just Map Text HttpsUrl
mi) -> Either HttpsUrl (Map Text HttpsUrl)
-> IO (Either HttpsUrl (Map Text HttpsUrl))
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Map Text HttpsUrl -> Either HttpsUrl (Map Text HttpsUrl)
forall a b. b -> Either a b
Right Map Text HttpsUrl
mi)
    (Just HttpsUrl
uri, Maybe (Map Text HttpsUrl)
Nothing) -> Either HttpsUrl (Map Text HttpsUrl)
-> IO (Either HttpsUrl (Map Text HttpsUrl))
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (HttpsUrl -> Either HttpsUrl (Map Text HttpsUrl)
forall a b. a -> Either a b
Left HttpsUrl
uri)
    (Just HttpsUrl
_, Just Map Text HttpsUrl
_) -> [Char] -> IO (Either HttpsUrl (Map Text HttpsUrl))
forall a. HasCallStack => [Char] -> a
error [Char]
errMsg

createEnv :: Opts -> Logger -> IO Env
createEnv :: Opts -> Logger -> IO Env
createEnv Opts
o Logger
l = do
  ClientState
cass <- Opts -> Logger -> IO ClientState
initCassandra Opts
o Logger
l
  Manager
mgr <- Opts -> IO Manager
initHttpManager Opts
o
  Http2Manager
h2mgr <- IO Http2Manager
initHttp2Manager
  Either HttpsUrl (Map Text HttpsUrl)
codeURIcfg <- Opts -> IO (Either HttpsUrl (Map Text HttpsUrl))
validateOptions Opts
o
  RequestId
-> Opts
-> Logger
-> Manager
-> Http2Manager
-> Maybe Endpoint
-> Endpoint
-> ClientState
-> Queue DeleteItem
-> ExtEnv
-> Maybe Env
-> Maybe (MLSKeysByPurpose MLSPrivateKeys)
-> Maybe (MVar Channel)
-> Either HttpsUrl (Map Text HttpsUrl)
-> Env
Env (ByteString -> RequestId
RequestId ByteString
"N/A") Opts
o Logger
l Manager
mgr Http2Manager
h2mgr (Opts
o Opts
-> Getting (Maybe Endpoint) Opts (Maybe Endpoint) -> Maybe Endpoint
forall s a. s -> Getting a s a -> a
^. Getting (Maybe Endpoint) Opts (Maybe Endpoint)
Lens' Opts (Maybe Endpoint)
O.federator) (Opts
o Opts -> Getting Endpoint Opts Endpoint -> Endpoint
forall s a. s -> Getting a s a -> a
^. Getting Endpoint Opts Endpoint
Lens' Opts Endpoint
O.brig) ClientState
cass
    (Queue DeleteItem
 -> ExtEnv
 -> Maybe Env
 -> Maybe (MLSKeysByPurpose MLSPrivateKeys)
 -> Maybe (MVar Channel)
 -> Either HttpsUrl (Map Text HttpsUrl)
 -> Env)
-> IO (Queue DeleteItem)
-> IO
     (ExtEnv
      -> Maybe Env
      -> Maybe (MLSKeysByPurpose MLSPrivateKeys)
      -> Maybe (MVar Channel)
      -> Either HttpsUrl (Map Text HttpsUrl)
      -> Env)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Natural -> IO (Queue DeleteItem)
forall (m :: * -> *) a. MonadIO m => Natural -> m (Queue a)
Q.new Natural
16000
    IO
  (ExtEnv
   -> Maybe Env
   -> Maybe (MLSKeysByPurpose MLSPrivateKeys)
   -> Maybe (MVar Channel)
   -> Either HttpsUrl (Map Text HttpsUrl)
   -> Env)
-> IO ExtEnv
-> IO
     (Maybe Env
      -> Maybe (MLSKeysByPurpose MLSPrivateKeys)
      -> Maybe (MVar Channel)
      -> Either HttpsUrl (Map Text HttpsUrl)
      -> Env)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> IO ExtEnv
initExtEnv
    IO
  (Maybe Env
   -> Maybe (MLSKeysByPurpose MLSPrivateKeys)
   -> Maybe (MVar Channel)
   -> Either HttpsUrl (Map Text HttpsUrl)
   -> Env)
-> IO (Maybe Env)
-> IO
     (Maybe (MLSKeysByPurpose MLSPrivateKeys)
      -> Maybe (MVar Channel)
      -> Either HttpsUrl (Map Text HttpsUrl)
      -> Env)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> IO (Maybe Env)
-> (JournalOpts -> IO (Maybe Env))
-> Maybe JournalOpts
-> IO (Maybe Env)
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (Maybe Env -> IO (Maybe Env)
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure Maybe Env
forall a. Maybe a
Nothing) ((Env -> Maybe Env) -> IO Env -> IO (Maybe Env)
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Env -> Maybe Env
forall a. a -> Maybe a
Just (IO Env -> IO (Maybe Env))
-> (JournalOpts -> IO Env) -> JournalOpts -> IO (Maybe Env)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Logger -> Manager -> JournalOpts -> IO Env
Aws.mkEnv Logger
l Manager
mgr) (Opts
o Opts
-> Getting (Maybe JournalOpts) Opts (Maybe JournalOpts)
-> Maybe JournalOpts
forall s a. s -> Getting a s a -> a
^. Getting (Maybe JournalOpts) Opts (Maybe JournalOpts)
Lens' Opts (Maybe JournalOpts)
journal)
    IO
  (Maybe (MLSKeysByPurpose MLSPrivateKeys)
   -> Maybe (MVar Channel)
   -> Either HttpsUrl (Map Text HttpsUrl)
   -> Env)
-> IO (Maybe (MLSKeysByPurpose MLSPrivateKeys))
-> IO
     (Maybe (MVar Channel)
      -> Either HttpsUrl (Map Text HttpsUrl) -> Env)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (MLSPrivateKeyPaths -> IO (MLSKeysByPurpose MLSPrivateKeys))
-> Maybe MLSPrivateKeyPaths
-> IO (Maybe (MLSKeysByPurpose MLSPrivateKeys))
forall (t :: * -> *) (f :: * -> *) a b.
(Traversable t, Applicative f) =>
(a -> f b) -> t a -> f (t b)
forall (f :: * -> *) a b.
Applicative f =>
(a -> f b) -> Maybe a -> f (Maybe b)
traverse MLSPrivateKeyPaths -> IO (MLSKeysByPurpose MLSPrivateKeys)
loadAllMLSKeys (Opts
o Opts
-> Getting
     (Maybe MLSPrivateKeyPaths) Opts (Maybe MLSPrivateKeyPaths)
-> Maybe MLSPrivateKeyPaths
forall s a. s -> Getting a s a -> a
^. (Settings -> Const (Maybe MLSPrivateKeyPaths) Settings)
-> Opts -> Const (Maybe MLSPrivateKeyPaths) Opts
Lens' Opts Settings
settings ((Settings -> Const (Maybe MLSPrivateKeyPaths) Settings)
 -> Opts -> Const (Maybe MLSPrivateKeyPaths) Opts)
-> ((Maybe MLSPrivateKeyPaths
     -> Const (Maybe MLSPrivateKeyPaths) (Maybe MLSPrivateKeyPaths))
    -> Settings -> Const (Maybe MLSPrivateKeyPaths) Settings)
-> Getting
     (Maybe MLSPrivateKeyPaths) Opts (Maybe MLSPrivateKeyPaths)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe MLSPrivateKeyPaths
 -> Const (Maybe MLSPrivateKeyPaths) (Maybe MLSPrivateKeyPaths))
-> Settings -> Const (Maybe MLSPrivateKeyPaths) Settings
Lens' Settings (Maybe MLSPrivateKeyPaths)
mlsPrivateKeyPaths)
    IO
  (Maybe (MVar Channel)
   -> Either HttpsUrl (Map Text HttpsUrl) -> Env)
-> IO (Maybe (MVar Channel))
-> IO (Either HttpsUrl (Map Text HttpsUrl) -> Env)
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> (AmqpEndpoint -> IO (MVar Channel))
-> Maybe AmqpEndpoint -> IO (Maybe (MVar Channel))
forall (t :: * -> *) (f :: * -> *) a b.
(Traversable t, Applicative f) =>
(a -> f b) -> t a -> f (t b)
forall (f :: * -> *) a b.
Applicative f =>
(a -> f b) -> Maybe a -> f (Maybe b)
traverse (Logger -> AmqpEndpoint -> IO (MVar Channel)
mkRabbitMqChannelMVar Logger
l) (Opts
o Opts
-> Getting (Maybe AmqpEndpoint) Opts (Maybe AmqpEndpoint)
-> Maybe AmqpEndpoint
forall s a. s -> Getting a s a -> a
^. Getting (Maybe AmqpEndpoint) Opts (Maybe AmqpEndpoint)
Lens' Opts (Maybe AmqpEndpoint)
rabbitmq)
    IO (Either HttpsUrl (Map Text HttpsUrl) -> Env)
-> IO (Either HttpsUrl (Map Text HttpsUrl)) -> IO Env
forall a b. IO (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Either HttpsUrl (Map Text HttpsUrl)
-> IO (Either HttpsUrl (Map Text HttpsUrl))
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure Either HttpsUrl (Map Text HttpsUrl)
codeURIcfg

initCassandra :: Opts -> Logger -> IO ClientState
initCassandra :: Opts -> Logger -> IO ClientState
initCassandra Opts
o Logger
l =
  CassandraOpts
-> [Char] -> Maybe Text -> Maybe Int32 -> Logger -> IO ClientState
initCassandraForService
    (Opts
o Opts -> Getting CassandraOpts Opts CassandraOpts -> CassandraOpts
forall s a. s -> Getting a s a -> a
^. Getting CassandraOpts Opts CassandraOpts
Lens' Opts CassandraOpts
cassandra)
    [Char]
"galley"
    (Opts
o Opts -> Getting (Maybe Text) Opts (Maybe Text) -> Maybe Text
forall s a. s -> Getting a s a -> a
^. Getting (Maybe Text) Opts (Maybe Text)
Lens' Opts (Maybe Text)
discoUrl)
    Maybe Int32
forall a. Maybe a
Nothing
    Logger
l

initHttpManager :: Opts -> IO Manager
initHttpManager :: Opts -> IO Manager
initHttpManager Opts
o = do
  SSLContext
ctx <- IO SSLContext
Ssl.context
  SSLContext -> VerificationMode -> IO ()
Ssl.contextSetVerificationMode SSLContext
ctx (VerificationMode -> IO ()) -> VerificationMode -> IO ()
forall a b. (a -> b) -> a -> b
$ Bool
-> Bool
-> Maybe (Bool -> X509StoreCtx -> IO Bool)
-> VerificationMode
Ssl.VerifyPeer Bool
True Bool
True Maybe (Bool -> X509StoreCtx -> IO Bool)
forall a. Maybe a
Nothing
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_SSLv2
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_SSLv3
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_TLSv1
  SSLContext -> [Char] -> IO ()
Ssl.contextSetCiphers SSLContext
ctx [Char]
rsaCiphers
  SSLContext -> IO ()
Ssl.contextSetDefaultVerifyPaths SSLContext
ctx
  ManagerSettings -> IO Manager
newManager
    (IO SSLContext -> ManagerSettings
opensslManagerSettings (SSLContext -> IO SSLContext
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure SSLContext
ctx))
      { managerResponseTimeout = responseTimeoutMicro 10000000,
        managerConnCount = o ^. settings . httpPoolSize,
        managerIdleConnectionCount = 3 * (o ^. settings . httpPoolSize)
      }

initHttp2Manager :: IO Http2Manager
initHttp2Manager :: IO Http2Manager
initHttp2Manager = do
  SSLContext
ctx <- IO SSLContext
Ssl.context
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_SSLv2
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_SSLv3
  SSLContext -> SSLOption -> IO ()
Ssl.contextAddOption SSLContext
ctx SSLOption
SSL_OP_NO_TLSv1
  SSLContext -> [Char] -> IO ()
Ssl.contextSetCiphers SSLContext
ctx [Char]
rsaCiphers
  SSLContext -> VerificationMode -> IO ()
Ssl.contextSetVerificationMode SSLContext
ctx (VerificationMode -> IO ()) -> VerificationMode -> IO ()
forall a b. (a -> b) -> a -> b
$
    Bool
-> Bool
-> Maybe (Bool -> X509StoreCtx -> IO Bool)
-> VerificationMode
Ssl.VerifyPeer Bool
True Bool
True Maybe (Bool -> X509StoreCtx -> IO Bool)
forall a. Maybe a
Nothing
  SSLContext -> IO ()
Ssl.contextSetDefaultVerifyPaths SSLContext
ctx
  SSLContext -> IO Http2Manager
http2ManagerWithSSLCtx SSLContext
ctx

interpretTinyLog ::
  (Member (Embed IO) r) =>
  Env ->
  Sem (P.TinyLog ': r) a ->
  Sem r a
interpretTinyLog :: forall (r :: EffectRow) a.
Member (Embed IO) r =>
Env -> Sem (TinyLog : r) a -> Sem r a
interpretTinyLog Env
e = (forall (rInitial :: EffectRow) x.
 TinyLog (Sem rInitial) x -> Sem r x)
-> Sem (TinyLog : r) a -> Sem r a
forall (e :: (* -> *) -> * -> *) (r :: EffectRow) a.
FirstOrder e "interpret" =>
(forall (rInitial :: EffectRow) x. e (Sem rInitial) x -> Sem r x)
-> Sem (e : r) a -> Sem r a
interpret ((forall (rInitial :: EffectRow) x.
  TinyLog (Sem rInitial) x -> Sem r x)
 -> Sem (TinyLog : r) a -> Sem r a)
-> (forall (rInitial :: EffectRow) x.
    TinyLog (Sem rInitial) x -> Sem r x)
-> Sem (TinyLog : r) a
-> Sem r a
forall a b. (a -> b) -> a -> b
$ \case
  P.Log Level
l Msg -> Msg
m -> Logger -> Level -> (Msg -> Msg) -> Sem r ()
forall (m :: * -> *).
MonadIO m =>
Logger -> Level -> (Msg -> Msg) -> m ()
Logger.log (Env
e Env -> Getting Logger Env Logger -> Logger
forall s a. s -> Getting a s a -> a
^. Getting Logger Env Logger
Lens' Env Logger
applog) (Level -> Level
Wire.Sem.Logger.toLevel Level
l) (RequestId -> Msg -> Msg
reqIdMsg (Env
e Env -> Getting RequestId Env RequestId -> RequestId
forall s a. s -> Getting a s a -> a
^. Getting RequestId Env RequestId
Lens' Env RequestId
reqId) (Msg -> Msg) -> (Msg -> Msg) -> Msg -> Msg
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Msg -> Msg
m)

evalGalleyToIO :: Env -> Sem GalleyEffects a -> IO a
evalGalleyToIO :: forall a. Env -> Sem GalleyEffects a -> IO a
evalGalleyToIO Env
env Sem GalleyEffects a
action = do
  Either JSONResponse a
r <-
    -- log IO exceptions
    ExceptT JSONResponse IO a -> IO (Either JSONResponse a)
forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
runExceptT (Env -> Sem GalleyEffects a -> ExceptT JSONResponse IO a
forall a. Env -> Sem GalleyEffects a -> ExceptT JSONResponse IO a
evalGalley Env
env Sem GalleyEffects a
action) IO (Either JSONResponse a)
-> (SomeException -> IO (Either JSONResponse a))
-> IO (Either JSONResponse a)
forall (m :: * -> *) e a.
(MonadUnliftIO m, Exception e) =>
m a -> (e -> m a) -> m a
`UnliftIO.catch` \(SomeException
e :: SomeException) -> do
      Logger -> (Msg -> Msg) -> IO ()
forall (m :: * -> *). MonadIO m => Logger -> (Msg -> Msg) -> m ()
Log.err (Env
env Env -> Getting Logger Env Logger -> Logger
forall s a. s -> Getting a s a -> a
^. Getting Logger Env Logger
Lens' Env Logger
applog) ((Msg -> Msg) -> IO ()) -> (Msg -> Msg) -> IO ()
forall a b. (a -> b) -> a -> b
$
        ByteString -> Msg -> Msg
forall a. ToBytes a => a -> Msg -> Msg
Log.msg (ByteString
"IO Exception occurred" :: ByteString)
          (Msg -> Msg) -> (Msg -> Msg) -> Msg -> Msg
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> [Char] -> Msg -> Msg
forall a. ToBytes a => ByteString -> a -> Msg -> Msg
Log.field ByteString
"message" (SomeException -> [Char]
forall e. Exception e => e -> [Char]
displayException SomeException
e)
          (Msg -> Msg) -> (Msg -> Msg) -> Msg -> Msg
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString -> Msg -> Msg
forall a. ToBytes a => ByteString -> a -> Msg -> Msg
Log.field ByteString
"request" (RequestId -> ByteString
unRequestId (Env
env Env -> Getting RequestId Env RequestId -> RequestId
forall s a. s -> Getting a s a -> a
^. Getting RequestId Env RequestId
Lens' Env RequestId
reqId))
      SomeException -> IO (Either JSONResponse a)
forall (m :: * -> *) e a. (MonadIO m, Exception e) => e -> m a
UnliftIO.throwIO SomeException
e
  case Either JSONResponse a
r of
    -- throw any errors as IO exceptions without logging them
    Left JSONResponse
e -> JSONResponse -> IO a
forall (m :: * -> *) e a. (MonadIO m, Exception e) => e -> m a
UnliftIO.throwIO JSONResponse
e
    Right a
a -> a -> IO a
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure a
a

toServantHandler :: Env -> Sem GalleyEffects a -> Servant.Handler a
toServantHandler :: forall a. Env -> Sem GalleyEffects a -> Handler a
toServantHandler Env
env = IO a -> Handler a
forall a. IO a -> Handler a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO a -> Handler a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> IO a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Handler a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Env -> Sem GalleyEffects a -> IO a
forall a. Env -> Sem GalleyEffects a -> IO a
evalGalleyToIO Env
env

evalGalley :: Env -> Sem GalleyEffects a -> ExceptT JSONResponse IO a
evalGalley :: forall a. Env -> Sem GalleyEffects a -> ExceptT JSONResponse IO a
evalGalley Env
e =
  IO (Either JSONResponse a) -> ExceptT JSONResponse IO a
forall e (m :: * -> *) a. m (Either e a) -> ExceptT e m a
ExceptT
    (IO (Either JSONResponse a) -> ExceptT JSONResponse IO a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> IO (Either JSONResponse a))
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> ExceptT JSONResponse IO a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *) a. Monad m => Sem '[Final m] a -> m a
runFinal @IO
    (Sem '[Final IO] (Either JSONResponse a)
 -> IO (Either JSONResponse a))
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem '[Final IO] (Either JSONResponse a))
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> IO (Either JSONResponse a)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem '[Resource, Final IO] (Either JSONResponse a)
-> Sem '[Final IO] (Either JSONResponse a)
forall (r :: EffectRow) a.
Member (Final IO) r =>
Sem (Resource : r) a -> Sem r a
resourceToIOFinal
    (Sem '[Resource, Final IO] (Either JSONResponse a)
 -> Sem '[Final IO] (Either JSONResponse a))
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem '[Resource, Final IO] (Either JSONResponse a))
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem '[Final IO] (Either JSONResponse a)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem '[Error JSONResponse, Resource, Final IO] a
-> Sem '[Resource, Final IO] (Either JSONResponse a)
forall e (r :: EffectRow) a.
Sem (Error e : r) a -> Sem r (Either e a)
runError
    (Sem '[Error JSONResponse, Resource, Final IO] a
 -> Sem '[Resource, Final IO] (Either JSONResponse a))
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem '[Error JSONResponse, Resource, Final IO] a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem '[Resource, Final IO] (Either JSONResponse a)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *) (r :: EffectRow) a.
(Member (Final m) r, Functor m) =>
Sem (Embed m : r) a -> Sem r a
embedToFinal @IO
    (Sem '[Embed IO, Error JSONResponse, Resource, Final IO] a
 -> Sem '[Error JSONResponse, Resource, Final IO] a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem '[Embed IO, Error JSONResponse, Resource, Final IO] a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem '[Error JSONResponse, Resource, Final IO] a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *) (r :: EffectRow) a.
(Member (Embed m) r, MonadFail m) =>
Sem (Fail : r) a -> Sem r a
failToEmbed @IO
    (Sem '[Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
 -> Sem '[Embed IO, Error JSONResponse, Resource, Final IO] a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem '[Fail, Embed IO, Error JSONResponse, Resource, Final IO] a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem '[Embed IO, Error JSONResponse, Resource, Final IO] a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
-> Sem '[Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
forall (r :: EffectRow) a.
Member (Embed IO) r =>
Sem (Delay : r) a -> Sem r a
runDelay
    (Sem
   '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
 -> Sem '[Fail, Embed IO, Error JSONResponse, Resource, Final IO] a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem '[Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
forall (r :: EffectRow) a.
Member (Final IO) r =>
Sem (Async : r) a -> Sem r a
asyncToIOFinal
    (Sem
   '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Delay, Fail, Embed IO, Error JSONResponse, Resource, Final IO] a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FederationError -> JSONResponse)
-> Sem
     '[Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall e1 e2 (r :: EffectRow) a.
Member (Error e2) r =>
(e1 -> e2) -> Sem (Error e1 : r) a -> Sem r a
mapError FederationError -> JSONResponse
forall e. APIError e => e -> JSONResponse
toResponse
    (Sem
   '[Error FederationError, Async, Delay, Fail, Embed IO,
     Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Error FederationError, Async, Delay, Fail, Embed IO,
           Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (InternalError -> JSONResponse)
-> Sem
     '[Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall e1 e2 (r :: EffectRow) a.
Member (Error e2) r =>
(e1 -> e2) -> Sem (Error e1 : r) a -> Sem r a
mapError InternalError -> JSONResponse
forall e. APIError e => e -> JSONResponse
toResponse
    (Sem
   '[Error InternalError, Error FederationError, Async, Delay, Fail,
     Embed IO, Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Error FederationError, Async, Delay, Fail, Embed IO,
        Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Error InternalError, Error FederationError, Async, Delay, Fail,
           Embed IO, Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (InvalidInput -> JSONResponse)
-> Sem
     '[Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall e1 e2 (r :: EffectRow) a.
Member (Error e2) r =>
(e1 -> e2) -> Sem (Error e1 : r) a -> Sem r a
mapError InvalidInput -> JSONResponse
forall e. APIError e => e -> JSONResponse
toResponse
    (Sem
   '[Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Error InternalError, Error FederationError, Async, Delay, Fail,
        Embed IO, Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Env
-> Sem
     '[Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall i (r :: EffectRow) a. i -> Sem (Input i : r) a -> Sem r a
runInputConst Env
e
    (Sem
   '[Input Env, Error InvalidInput, Error InternalError,
     Error FederationError, Async, Delay, Fail, Embed IO,
     Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input Env, Error InvalidInput, Error InternalError,
           Error FederationError, Async, Delay, Fail, Embed IO,
           Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ClientState
-> Sem
     '[Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall i (r :: EffectRow) a. i -> Sem (Input i : r) a -> Sem r a
runInputConst (Env
e Env -> Getting ClientState Env ClientState -> ClientState
forall s a. s -> Getting a s a -> a
^. Getting ClientState Env ClientState
Lens' Env ClientState
cstate)
    (Sem
   '[Input ClientState, Input Env, Error InvalidInput,
     Error InternalError, Error FederationError, Async, Delay, Fail,
     Embed IO, Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Input Env, Error InvalidInput, Error InternalError,
        Error FederationError, Async, Delay, Fail, Embed IO,
        Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input ClientState, Input Env, Error InvalidInput,
           Error InternalError, Error FederationError, Async, Delay, Fail,
           Embed IO, Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (DynError -> JSONResponse)
-> Sem
     '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall e1 e2 (r :: EffectRow) a.
Member (Error e2) r =>
(e1 -> e2) -> Sem (Error e1 : r) a -> Sem r a
mapError DynError -> JSONResponse
forall e. APIError e => e -> JSONResponse
toResponse -- DynError
    (Sem
   '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
     Error InternalError, Error FederationError, Async, Delay, Fail,
     Embed IO, Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Input ClientState, Input Env, Error InvalidInput,
        Error InternalError, Error FederationError, Async, Delay, Fail,
        Embed IO, Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
           Error InternalError, Error FederationError, Async, Delay, Fail,
           Embed IO, Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Env
-> Sem
     '[TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall (r :: EffectRow) a.
Member (Embed IO) r =>
Env -> Sem (TinyLog : r) a -> Sem r a
interpretTinyLog Env
e
    (Sem
   '[TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
        Error InternalError, Error FederationError, Async, Delay, Fail,
        Embed IO, Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Queue DeleteItem
-> Sem
     '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
       Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a x.
Member (Embed IO) r =>
Queue a -> Sem (Queue a : r) x -> Sem r x
interpretQueue (Env
e Env
-> Getting (Queue DeleteItem) Env (Queue DeleteItem)
-> Queue DeleteItem
forall s a. s -> Getting a s a -> a
^. Getting (Queue DeleteItem) Env (Queue DeleteItem)
Lens' Env (Queue DeleteItem)
deleteQueue)
    (Sem
   '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
     Input Env, Error InvalidInput, Error InternalError,
     Error FederationError, Async, Delay, Fail, Embed IO,
     Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
           Input Env, Error InvalidInput, Error InternalError,
           Error FederationError, Async, Delay, Fail, Embed IO,
           Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
    Input Env, Error InvalidInput, Error InternalError,
    Error FederationError, Async, Delay, Fail, Embed IO,
    Error JSONResponse, Resource, Final IO]
  UTCTime
-> Sem
     '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
       Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
       Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall i (r :: EffectRow) a.
Sem r i -> Sem (Input i : r) a -> Sem r a
runInputSem (IO UTCTime
-> Sem
     '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
       Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     UTCTime
forall (m :: * -> *) (r :: EffectRow) a.
Member (Embed m) r =>
m a -> Sem r a
embed IO UTCTime
getCurrentTime) -- FUTUREWORK: could we take the time only once instead?
    (Sem
   '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
     Input ClientState, Input Env, Error InvalidInput,
     Error InternalError, Error FederationError, Async, Delay, Fail,
     Embed IO, Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
        Input Env, Error InvalidInput, Error InternalError,
        Error FederationError, Async, Delay, Fail, Embed IO,
        Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
           Input ClientState, Input Env, Error InvalidInput,
           Error InternalError, Error FederationError, Async, Delay, Fail,
           Embed IO, Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Queue DeleteItem, TinyLog, Error DynError, Input ClientState,
       Input Env, Error InvalidInput, Error InternalError,
       Error FederationError, Async, Delay, Fail, Embed IO,
       Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Opts
-> Sem
     '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
       Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
-> Sem
     '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
       Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall i (r :: EffectRow) a. i -> Sem (Input i : r) a -> Sem r a
runInputConst (Env
e Env -> Getting Opts Env Opts -> Opts
forall s a. s -> Getting a s a -> a
^. Getting Opts Env Opts
Lens' Env Opts
options)
    (Sem
   '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
     Error DynError, Input ClientState, Input Env, Error InvalidInput,
     Error InternalError, Error FederationError, Async, Delay, Fail,
     Embed IO, Error JSONResponse, Resource, Final IO]
   a
 -> Sem
      '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
        Input ClientState, Input Env, Error InvalidInput,
        Error InternalError, Error FederationError, Async, Delay, Fail,
        Embed IO, Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
           Error DynError, Input ClientState, Input Env, Error InvalidInput,
           Error InternalError, Error FederationError, Async, Delay, Fail,
           Embed IO, Error JSONResponse, Resource, Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input UTCTime, Queue DeleteItem, TinyLog, Error DynError,
       Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Local ()
-> Sem
     '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
       Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall i (r :: EffectRow) a. i -> Sem (Input i : r) a -> Sem r a
runInputConst (Domain -> () -> Local ()
forall a. Domain -> a -> Local a
toLocalUnsafe (Env
e Env -> Getting Domain Env Domain -> Domain
forall s a. s -> Getting a s a -> a
^. (Opts -> Const Domain Opts) -> Env -> Const Domain Env
Lens' Env Opts
options ((Opts -> Const Domain Opts) -> Env -> Const Domain Env)
-> ((Domain -> Const Domain Domain) -> Opts -> Const Domain Opts)
-> Getting Domain Env Domain
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Settings -> Const Domain Settings) -> Opts -> Const Domain Opts
Lens' Opts Settings
settings ((Settings -> Const Domain Settings) -> Opts -> Const Domain Opts)
-> ((Domain -> Const Domain Domain)
    -> Settings -> Const Domain Settings)
-> (Domain -> Const Domain Domain)
-> Opts
-> Const Domain Opts
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Domain -> Const Domain Domain)
-> Settings -> Const Domain Settings
Lens' Settings Domain
federationDomain) ())
    (Sem
   '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
        Error DynError, Input ClientState, Input Env, Error InvalidInput,
        Error InternalError, Error FederationError, Async, Delay, Fail,
        Embed IO, Error JSONResponse, Resource, Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input Opts, Input UTCTime, Queue DeleteItem, TinyLog,
       Error DynError, Input ClientState, Input Env, Error InvalidInput,
       Error InternalError, Error FederationError, Async, Delay, Fail,
       Embed IO, Error JSONResponse, Resource, Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Env
-> Sem
     '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
Env
-> Sem
     (Input (Maybe [TeamId], FeatureDefaults LegalholdConfig) : r) a
-> Sem r a
interpretTeamFeatureSpecialContext Env
e
    (Sem
   '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  AllTeamFeatures
-> Sem
     '[Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall i (r :: EffectRow) a.
Sem r i -> Sem (Input i : r) a -> Sem r a
runInputSem Sem
  '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  AllTeamFeatures
forall (r :: EffectRow).
Member (Input Opts) r =>
Sem r AllTeamFeatures
getAllTeamFeaturesForServer
    (Sem
   '[Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ListItems InternalPaging TeamId : r) a -> Sem r a
interpretInternalTeamListToCassandra
    (Sem
   '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
    Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ListItems LegacyPaging TeamId : r) a -> Sem r a
interpretTeamListToCassandra
    (Sem
   '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
     Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
           Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
       Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ListItems LegacyPaging ConvId : r) a -> Sem r a
interpretLegacyConversationListToCassandra
    (Sem
   '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
        Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems LegacyPaging TeamId, ListItems InternalPaging TeamId,
       Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ListItems CassandraPaging (Remote ConvId) : r) a -> Sem r a
interpretRemoteConversationListToCassandra
    (Sem
   '[ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ListItems CassandraPaging ConvId : r) a -> Sem r a
interpretConversationListToCassandra
    (Sem
   '[ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FeatureDefaults LegalholdConfig
-> Sem
     '[TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
FeatureDefaults LegalholdConfig
-> Sem (TeamMemberStore CassandraPaging : r) a -> Sem r a
interpretTeamMemberStoreToCassandraWithPaging FeatureDefaults LegalholdConfig
lh
    (Sem
   '[TeamMemberStore CassandraPaging,
     ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TeamMemberStore CassandraPaging,
           ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FeatureDefaults LegalholdConfig
-> Sem
     '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
FeatureDefaults LegalholdConfig
-> Sem (TeamMemberStore InternalPaging : r) a -> Sem r a
interpretTeamMemberStoreToCassandra FeatureDefaults LegalholdConfig
lh
    (Sem
   '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
     ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[TeamMemberStore CassandraPaging,
        ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
           ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FeatureDefaults LegalholdConfig
-> Sem
     '[TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r,
 Member (Input ClientState) r, Member TinyLog r) =>
FeatureDefaults LegalholdConfig -> Sem (TeamStore : r) a -> Sem r a
interpretTeamStoreToCassandra FeatureDefaults LegalholdConfig
lh
    (Sem
   '[TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
        ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (TeamNotificationStore : r) a -> Sem r a
interpretTeamNotificationStoreToCassandra
    (Sem
   '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ServiceStore, TeamNotificationStore, TeamStore,
    TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
    ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ServiceStore : r) a -> Sem r a
interpretServiceStoreToCassandra
    (Sem
   '[ServiceStore, TeamNotificationStore, TeamStore,
     TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
     ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ServiceStore, TeamNotificationStore, TeamStore,
           TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
           ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ServiceStore, TeamNotificationStore, TeamStore,
       TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (SearchVisibilityStore : r) a -> Sem r a
interpretSearchVisibilityStoreToCassandra
    (Sem
   '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ServiceStore, TeamNotificationStore, TeamStore,
        TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
        ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ServiceStore, TeamNotificationStore, TeamStore,
       TeamMemberStore InternalPaging, TeamMemberStore CassandraPaging,
       ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (MemberStore : r) a -> Sem r a
interpretMemberStoreToCassandra
    (Sem
   '[MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FeatureDefaults LegalholdConfig
-> Sem
     '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member (Input Env) r, Member TinyLog r) =>
FeatureDefaults LegalholdConfig
-> Sem (LegalHoldStore : r) a -> Sem r a
interpretLegalHoldStoreToCassandra FeatureDefaults LegalholdConfig
lh
    (Sem
   '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (TeamFeatureStore : r) a -> Sem r a
interpretTeamFeatureStoreToCassandra
    (Sem
   '[TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
    MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (CustomBackendStore : r) a -> Sem r a
interpretCustomBackendStoreToCassandra
    (Sem
   '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
     MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
           MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
    MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
       MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
Member (Embed IO) r =>
Sem (Random : r) a -> Sem r a
randomToIO
    (Sem
   '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
     MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
        MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
           MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[CustomBackendStore, TeamFeatureStore, LegalHoldStore,
       MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[SubConversationStore, Random, CustomBackendStore,
    TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
       MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (SubConversationStore : r) a -> Sem r a
interpretSubConversationStoreToCassandra
    (Sem
   '[SubConversationStore, Random, CustomBackendStore,
     TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
        MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[SubConversationStore, Random, CustomBackendStore,
           TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Random, CustomBackendStore, TeamFeatureStore, LegalHoldStore,
       MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[SubConversationStore, Random, CustomBackendStore,
       TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ConversationStore : r) a -> Sem r a
interpretConversationStoreToCassandra
    (Sem
   '[ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[SubConversationStore, Random, CustomBackendStore,
        TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[SubConversationStore, Random, CustomBackendStore,
       TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ProposalStore, ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member TinyLog r) =>
Sem (ProposalStore : r) a -> Sem r a
interpretProposalStoreToCassandra
    (Sem
   '[ProposalStore, ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ProposalStore, ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[CodeStore, ProposalStore, ConversationStore,
    SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
    LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ProposalStore, ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member (Input Env) r, Member TinyLog r) =>
Sem (CodeStore : r) a -> Sem r a
interpretCodeStoreToCassandra
    (Sem
   '[CodeStore, ProposalStore, ConversationStore,
     SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
     LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ProposalStore, ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[CodeStore, ProposalStore, ConversationStore,
           SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
           LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ProposalStore, ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ClientStore, CodeStore, ProposalStore, ConversationStore,
    SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
    LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input ClientState) r,
 Member (Input Env) r, Member TinyLog r) =>
Sem (ClientStore : r) a -> Sem r a
interpretClientStoreToCassandra
    (Sem
   '[ClientStore, CodeStore, ProposalStore, ConversationStore,
     SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
     LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ClientStore, CodeStore, ProposalStore, ConversationStore,
           SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
           LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[FireAndForget, ClientStore, CodeStore, ProposalStore,
    ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
Member (Final IO) r =>
Sem (FireAndForget : r) a -> Sem r a
interpretFireAndForget
    (Sem
   '[FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
    ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r, Member TinyLog r) =>
Sem (BotAccess : r) a -> Sem r a
interpretBotAccess
    (Sem
   '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[FireAndForget, ClientStore, CodeStore, ProposalStore,
        ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
    ClientStore, CodeStore, ProposalStore, ConversationStore,
    SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
    LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r, Member TinyLog r) =>
Sem (BackendNotificationQueueAccess : r) a -> Sem r a
interpretBackendNotificationQueueAccess
    (Sem
   '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
     ClientStore, CodeStore, ProposalStore, ConversationStore,
     SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
     LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
        ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
           ClientStore, CodeStore, ProposalStore, ConversationStore,
           SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
           LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
    FireAndForget, ClientStore, CodeStore, ProposalStore,
    ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r, Member TinyLog r) =>
Sem (FederatorAccess : r) a -> Sem r a
interpretFederatorAccess
    (Sem
   '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
     FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
           FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
    BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
    ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
       FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r, Member TinyLog r) =>
Sem (ExternalAccess : r) a -> Sem r a
interpretExternalAccess
    (Sem
   '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
     BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
        FireAndForget, ClientStore, CodeStore, ProposalStore,
        ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
           BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[FederatorAccess, BackendNotificationQueueAccess, BotAccess,
       FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Manager
-> RequestId
-> Sem
     '[Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
       BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
Member (Embed IO) r =>
Manager -> RequestId -> Sem (Rpc : r) a -> Sem r a
runRpcWithHttp (Env
e Env -> Getting Manager Env Manager -> Manager
forall s a. s -> Getting a s a -> a
^. Getting Manager Env Manager
Lens' Env Manager
manager) (Env
e Env -> Getting RequestId Env RequestId -> RequestId
forall s a. s -> Getting a s a -> a
^. Getting RequestId Env RequestId
Lens' Env RequestId
reqId)
    (Sem
   '[Rpc, ExternalAccess, FederatorAccess,
     BackendNotificationQueueAccess, BotAccess, FireAndForget,
     ClientStore, CodeStore, ProposalStore, ConversationStore,
     SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
     LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
        BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
        ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[Rpc, ExternalAccess, FederatorAccess,
           BackendNotificationQueueAccess, BotAccess, FireAndForget,
           ClientStore, CodeStore, ProposalStore, ConversationStore,
           SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
           LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
       BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Endpoint
-> Sem
     '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member Rpc r, Member (Embed IO) r) =>
Endpoint -> Sem (GundeckAPIAccess : r) a -> Sem r a
runGundeckAPIAccess (Env
e Env -> Getting Endpoint Env Endpoint -> Endpoint
forall s a. s -> Getting a s a -> a
^. (Opts -> Const Endpoint Opts) -> Env -> Const Endpoint Env
Lens' Env Opts
options ((Opts -> Const Endpoint Opts) -> Env -> Const Endpoint Env)
-> Getting Endpoint Opts Endpoint -> Getting Endpoint Env Endpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Getting Endpoint Opts Endpoint
Lens' Opts Endpoint
gundeck)
    (Sem
   '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
     BackendNotificationQueueAccess, BotAccess, FireAndForget,
     ClientStore, CodeStore, ProposalStore, ConversationStore,
     SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
     LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
     TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
           BackendNotificationQueueAccess, BotAccess, FireAndForget,
           ClientStore, CodeStore, ProposalStore, ConversationStore,
           SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
           LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
           TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NotificationSubsystemConfig
-> Sem
     '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
       FederatorAccess, BackendNotificationQueueAccess, BotAccess,
       FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member GundeckAPIAccess r, Member Async r, Member Delay r,
 Member (Final IO) r, Member TinyLog r) =>
NotificationSubsystemConfig
-> Sem (NotificationSubsystem : r) a -> Sem r a
runNotificationSubsystemGundeck (Env -> NotificationSubsystemConfig
notificationSubssystemConfig Env
e)
    (Sem
   '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
     FederatorAccess, BackendNotificationQueueAccess, BotAccess,
     FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
           FederatorAccess, BackendNotificationQueueAccess, BotAccess,
           FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[GundeckAPIAccess, Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[SparAccess, NotificationSubsystem, GundeckAPIAccess, Rpc,
    ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
    BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
    ConversationStore, SubConversationStore, Random,
    CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
    SearchVisibilityStore, ServiceStore, TeamNotificationStore,
    TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
       FederatorAccess, BackendNotificationQueueAccess, BotAccess,
       FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Input Env) r, Member TinyLog r) =>
Sem (SparAccess : r) a -> Sem r a
interpretSparAccess
    (Sem
   '[SparAccess, NotificationSubsystem, GundeckAPIAccess, Rpc,
     ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
     BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
     ConversationStore, SubConversationStore, Random,
     CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
     SearchVisibilityStore, ServiceStore, TeamNotificationStore,
     TeamStore, TeamMemberStore InternalPaging,
     TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
     ListItems CassandraPaging (Remote ConvId),
     ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
     ListItems InternalPaging TeamId, Input AllTeamFeatures,
     Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
     Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
     TinyLog, Error DynError, Input ClientState, Input Env,
     Error InvalidInput, Error InternalError, Error FederationError,
     Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
     Final IO]
   a
 -> Sem
      '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
        FederatorAccess, BackendNotificationQueueAccess, BotAccess,
        FireAndForget, ClientStore, CodeStore, ProposalStore,
        ConversationStore, SubConversationStore, Random,
        CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
        SearchVisibilityStore, ServiceStore, TeamNotificationStore,
        TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a)
-> (Sem
      '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
        Rpc, ExternalAccess, FederatorAccess,
        BackendNotificationQueueAccess, BotAccess, FireAndForget,
        ClientStore, CodeStore, ProposalStore, ConversationStore,
        SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
        LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
        TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
        TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
        ListItems CassandraPaging (Remote ConvId),
        ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
        ListItems InternalPaging TeamId, Input AllTeamFeatures,
        Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
        Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
        TinyLog, Error DynError, Input ClientState, Input Env,
        Error InvalidInput, Error InternalError, Error FederationError,
        Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
        Final IO]
      a
    -> Sem
         '[SparAccess, NotificationSubsystem, GundeckAPIAccess, Rpc,
           ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
           BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
           ConversationStore, SubConversationStore, Random,
           CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
           SearchVisibilityStore, ServiceStore, TeamNotificationStore,
           TeamStore, TeamMemberStore InternalPaging,
           TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
           ListItems CassandraPaging (Remote ConvId),
           ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
           ListItems InternalPaging TeamId, Input AllTeamFeatures,
           Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
           Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
           TinyLog, Error DynError, Input ClientState, Input Env,
           Error InvalidInput, Error InternalError, Error FederationError,
           Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
           Final IO]
         a)
-> Sem
     '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
       Rpc, ExternalAccess, FederatorAccess,
       BackendNotificationQueueAccess, BotAccess, FireAndForget,
       ClientStore, CodeStore, ProposalStore, ConversationStore,
       SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
       LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
       TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
-> Sem
     '[NotificationSubsystem, GundeckAPIAccess, Rpc, ExternalAccess,
       FederatorAccess, BackendNotificationQueueAccess, BotAccess,
       FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Sem
  '[BrigAccess, SparAccess, NotificationSubsystem, GundeckAPIAccess,
    Rpc, ExternalAccess, FederatorAccess,
    BackendNotificationQueueAccess, BotAccess, FireAndForget,
    ClientStore, CodeStore, ProposalStore, ConversationStore,
    SubConversationStore, Random, CustomBackendStore, TeamFeatureStore,
    LegalHoldStore, MemberStore, SearchVisibilityStore, ServiceStore,
    TeamNotificationStore, TeamStore, TeamMemberStore InternalPaging,
    TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
    ListItems CassandraPaging (Remote ConvId),
    ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
    ListItems InternalPaging TeamId, Input AllTeamFeatures,
    Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
    Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
    TinyLog, Error DynError, Input ClientState, Input Env,
    Error InvalidInput, Error InternalError, Error FederationError,
    Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
    Final IO]
  a
-> Sem
     '[SparAccess, NotificationSubsystem, GundeckAPIAccess, Rpc,
       ExternalAccess, FederatorAccess, BackendNotificationQueueAccess,
       BotAccess, FireAndForget, ClientStore, CodeStore, ProposalStore,
       ConversationStore, SubConversationStore, Random,
       CustomBackendStore, TeamFeatureStore, LegalHoldStore, MemberStore,
       SearchVisibilityStore, ServiceStore, TeamNotificationStore,
       TeamStore, TeamMemberStore InternalPaging,
       TeamMemberStore CassandraPaging, ListItems CassandraPaging ConvId,
       ListItems CassandraPaging (Remote ConvId),
       ListItems LegacyPaging ConvId, ListItems LegacyPaging TeamId,
       ListItems InternalPaging TeamId, Input AllTeamFeatures,
       Input (Maybe [TeamId], FeatureDefaults LegalholdConfig),
       Input (Local ()), Input Opts, Input UTCTime, Queue DeleteItem,
       TinyLog, Error DynError, Input ClientState, Input Env,
       Error InvalidInput, Error InternalError, Error FederationError,
       Async, Delay, Fail, Embed IO, Error JSONResponse, Resource,
       Final IO]
     a
forall (r :: EffectRow) a.
(Member (Embed IO) r, Member (Error InternalError) r,
 Member TinyLog r, Member (Input Env) r) =>
Sem (BrigAccess : r) a -> Sem r a
interpretBrigAccess
  where
    lh :: FeatureDefaults LegalholdConfig
lh = Getting
  (FeatureDefaults LegalholdConfig)
  Env
  (FeatureDefaults LegalholdConfig)
-> Env -> FeatureDefaults LegalholdConfig
forall s (m :: * -> *) a. MonadReader s m => Getting a s a -> m a
view ((Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> Env -> Const (FeatureDefaults LegalholdConfig) Env
Lens' Env Opts
options ((Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
 -> Env -> Const (FeatureDefaults LegalholdConfig) Env)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> Getting
     (FeatureDefaults LegalholdConfig)
     Env
     (FeatureDefaults LegalholdConfig)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> Opts -> Const (FeatureDefaults LegalholdConfig) Opts
Lens' Opts Settings
settings ((Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
 -> Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> Opts
-> Const (FeatureDefaults LegalholdConfig) Opts
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags
 -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
-> Settings -> Const (FeatureDefaults LegalholdConfig) Settings
Lens' Settings FeatureFlags
featureFlags ((FeatureFlags
  -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
 -> Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> FeatureFlags
    -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> Settings
-> Const (FeatureDefaults LegalholdConfig) Settings
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags -> FeatureDefaults LegalholdConfig)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> FeatureFlags
-> Const (FeatureDefaults LegalholdConfig) FeatureFlags
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
to FeatureFlags -> FeatureDefaults LegalholdConfig
forall {k} (x :: k) (f :: k -> *) (xs :: [k]).
NpProject x xs =>
NP f xs -> f x
npProject) Env
e

interpretTeamFeatureSpecialContext :: Env -> Sem (Input (Maybe [TeamId], FeatureDefaults LegalholdConfig) ': r) a -> Sem r a
interpretTeamFeatureSpecialContext :: forall (r :: EffectRow) a.
Env
-> Sem
     (Input (Maybe [TeamId], FeatureDefaults LegalholdConfig) : r) a
-> Sem r a
interpretTeamFeatureSpecialContext Env
e =
  (Maybe [TeamId], FeatureDefaults LegalholdConfig)
-> Sem
     (Input (Maybe [TeamId], FeatureDefaults LegalholdConfig) : r) a
-> Sem r a
forall i (r :: EffectRow) a. i -> Sem (Input i : r) a -> Sem r a
runInputConst
    ( Env
e Env
-> Getting (Maybe [TeamId]) Env (Maybe [TeamId]) -> Maybe [TeamId]
forall s a. s -> Getting a s a -> a
^. (Opts -> Const (Maybe [TeamId]) Opts)
-> Env -> Const (Maybe [TeamId]) Env
Lens' Env Opts
options ((Opts -> Const (Maybe [TeamId]) Opts)
 -> Env -> Const (Maybe [TeamId]) Env)
-> ((Maybe [TeamId] -> Const (Maybe [TeamId]) (Maybe [TeamId]))
    -> Opts -> Const (Maybe [TeamId]) Opts)
-> Getting (Maybe [TeamId]) Env (Maybe [TeamId])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Settings -> Const (Maybe [TeamId]) Settings)
-> Opts -> Const (Maybe [TeamId]) Opts
Lens' Opts Settings
settings ((Settings -> Const (Maybe [TeamId]) Settings)
 -> Opts -> Const (Maybe [TeamId]) Opts)
-> ((Maybe [TeamId] -> Const (Maybe [TeamId]) (Maybe [TeamId]))
    -> Settings -> Const (Maybe [TeamId]) Settings)
-> (Maybe [TeamId] -> Const (Maybe [TeamId]) (Maybe [TeamId]))
-> Opts
-> Const (Maybe [TeamId]) Opts
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe [TeamId] -> Const (Maybe [TeamId]) (Maybe [TeamId]))
-> Settings -> Const (Maybe [TeamId]) Settings
Lens' Settings (Maybe [TeamId])
exposeInvitationURLsTeamAllowlist,
      Env
e Env
-> Getting
     (FeatureDefaults LegalholdConfig)
     Env
     (FeatureDefaults LegalholdConfig)
-> FeatureDefaults LegalholdConfig
forall s a. s -> Getting a s a -> a
^. (Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> Env -> Const (FeatureDefaults LegalholdConfig) Env
Lens' Env Opts
options ((Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
 -> Env -> Const (FeatureDefaults LegalholdConfig) Env)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> Getting
     (FeatureDefaults LegalholdConfig)
     Env
     (FeatureDefaults LegalholdConfig)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> Opts -> Const (FeatureDefaults LegalholdConfig) Opts
Lens' Opts Settings
settings ((Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
 -> Opts -> Const (FeatureDefaults LegalholdConfig) Opts)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> Opts
-> Const (FeatureDefaults LegalholdConfig) Opts
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags
 -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
-> Settings -> Const (FeatureDefaults LegalholdConfig) Settings
Lens' Settings FeatureFlags
featureFlags ((FeatureFlags
  -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
 -> Settings -> Const (FeatureDefaults LegalholdConfig) Settings)
-> ((FeatureDefaults LegalholdConfig
     -> Const
          (FeatureDefaults LegalholdConfig)
          (FeatureDefaults LegalholdConfig))
    -> FeatureFlags
    -> Const (FeatureDefaults LegalholdConfig) FeatureFlags)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> Settings
-> Const (FeatureDefaults LegalholdConfig) Settings
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (FeatureFlags -> FeatureDefaults LegalholdConfig)
-> (FeatureDefaults LegalholdConfig
    -> Const
         (FeatureDefaults LegalholdConfig)
         (FeatureDefaults LegalholdConfig))
-> FeatureFlags
-> Const (FeatureDefaults LegalholdConfig) FeatureFlags
forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
to FeatureFlags -> FeatureDefaults LegalholdConfig
forall {k} (x :: k) (f :: k -> *) (xs :: [k]).
NpProject x xs =>
NP f xs -> f x
npProject
    )