BtcLsp.Data.AppM

Documentation

runApp :: Env -> AppM m a -> m a

newtype AppM m a

Constructors

AppM

Fields

• unAppM :: ReaderT Env m a

Instances

Monad m => MonadReader Env (AppM m)

Defined in BtcLsp.Data.AppM

Methods

ask :: AppM m Env

local :: (Env -> Env) -> AppM m a -> AppM m a

reader :: (Env -> a) -> AppM m a

MonadIO m => MonadIO (AppM m)

Defined in BtcLsp.Data.AppM

Methods

liftIO :: IO a -> AppM m a

Applicative m => Applicative (AppM m)

Defined in BtcLsp.Data.AppM

Methods

pure :: a -> AppM m a

(<*>) :: AppM m (a -> b) -> AppM m a -> AppM m b

liftA2 :: (a -> b -> c) -> AppM m a -> AppM m b -> AppM m c

(*>) :: AppM m a -> AppM m b -> AppM m b

(<*) :: AppM m a -> AppM m b -> AppM m a

Functor m => Functor (AppM m)

Defined in BtcLsp.Data.AppM

Methods

fmap :: (a -> b) -> AppM m a -> AppM m b

(<$) :: a -> AppM m b -> AppM m a

Monad m => Monad (AppM m)

Defined in BtcLsp.Data.AppM

Methods

(>>=) :: AppM m a -> (a -> AppM m b) -> AppM m b

(>>) :: AppM m a -> AppM m b -> AppM m b

return :: a -> AppM m a

MonadUnliftIO m => Env (AppM m)

Defined in BtcLsp.Data.AppM

Methods

getGsEnv :: AppM m GSEnv

getSwapIntoLnMinAmt :: AppM m (Money 'Usr 'OnChain 'Fund)

getMsatPerByte :: AppM m (Maybe MSat)

getLspPubKeyVar :: AppM m (MVar NodePubKey)

getLndP2PSocketAddress :: AppM m SocketAddress

getLndNodeUri :: AppM m NodeUri

getLspPubKey :: AppM m NodePubKey

getLspLndEnv :: AppM m LndEnv

getYesodLog :: AppM m YesodLog

setGrpcCtx :: HasField msg "ctx" Ctx => msg -> AppM m msg

setGrpcCtxT :: HasField msg "ctx" Ctx => msg -> ExceptT Failure (AppM m) msg

withLnd :: (LndEnv -> a) -> (a -> AppM m (Either LndError b)) -> AppM m (Either Failure b)

withLndT :: (LndEnv -> a) -> (a -> AppM m (Either LndError b)) -> ExceptT Failure (AppM m) b

withLndServerT :: GrpcRes res failure specific => (LndEnv -> a) -> (a -> AppM m (Either LndError b)) -> ExceptT res (AppM m) b

withBtc :: (Client -> a) -> (a -> IO b) -> AppM m (Either Failure b)

withBtcT :: (Client -> a) -> (a -> IO b) -> ExceptT Failure (AppM m) b

monitorTotalExtOutgoingLiquidity :: Liquidity 'Outgoing -> AppM m ()

monitorTotalExtIncomingLiquidity :: Liquidity 'Incoming -> AppM m ()

monitorTotalOnChainLiquidity :: WalletBalance -> AppM m ()

MonadUnliftIO m => Storage (AppM m)

Defined in BtcLsp.Data.AppM

Methods

runSql :: ReaderT SqlBackend (AppM m) a -> AppM m a

getSqlPool :: AppM m (Pool SqlBackend)

MonadIO m => Katip (AppM m)

Defined in BtcLsp.Data.AppM

Methods

getLogEnv :: AppM m LogEnv

localLogEnv :: (LogEnv -> LogEnv) -> AppM m a -> AppM m a

MonadIO m => KatipContext (AppM m)

Defined in BtcLsp.Data.AppM

Methods

getKatipContext :: AppM m LogContexts

localKatipContext :: (LogContexts -> LogContexts) -> AppM m a -> AppM m a

getKatipNamespace :: AppM m Namespace

localKatipNamespace :: (Namespace -> Namespace) -> AppM m a -> AppM m a

MonadUnliftIO m => MonadUnliftIO (AppM m)

Defined in BtcLsp.Data.AppM

Methods

withRunInIO :: ((forall a. AppM m a -> IO a) -> IO b) -> AppM m b