Safe Haskell	None
Language	GHC2021

Shrun.Configuration.Data.Notify

Synopsis

data NotifyP (p :: ConfigPhase) = MkNotifyP {
- action :: NotifyActionF p
- system :: ConfigPhaseF p (NotifySystemP p)
- timeout :: ConfigPhaseF p NotifyTimeout
}
type NotifyArgs = NotifyP 'ConfigPhaseArgs
type NotifyToml = NotifyP 'ConfigPhaseToml
type NotifyMerged = NotifyP 'ConfigPhaseMerged
type NotifyEnv = NotifyP 'ConfigPhaseEnv
mergeNotifyLogging :: NotifyArgs -> Maybe NotifyToml -> Maybe NotifyMerged
toEnv :: (HasCallStack, MonadDBus m, MonadThrow m) => NotifyMerged -> m NotifyEnv

Documentation

data NotifyP (p :: ConfigPhase) Source #

Holds notification config.

Constructors

MkNotifyP
Fields action :: NotifyActionF p Actions for which to send notifications. system :: ConfigPhaseF p (NotifySystemP p) The notification system to use. timeout :: ConfigPhaseF p NotifyTimeout when to timeout successful notifications.

Instances

Instances details

Default NotifyArgs Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods def :: NotifyArgs Source #
DecodeTOML NotifyToml Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods tomlDecoder :: Decoder NotifyToml Source #
(k ~ A_Lens, a ~ NotifyActionF p, b ~ NotifyActionF p) => LabelOptic "action" k (NotifyP p) (NotifyP p) a b Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods labelOptic :: Optic k NoIx (NotifyP p) (NotifyP p) a b Source #
(k ~ A_Lens, a ~ ConfigPhaseF p (NotifySystemP p), b ~ ConfigPhaseF p (NotifySystemP p)) => LabelOptic "system" k (NotifyP p) (NotifyP p) a b Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods labelOptic :: Optic k NoIx (NotifyP p) (NotifyP p) a b Source #
(k ~ A_Lens, a ~ ConfigPhaseF p NotifyTimeout, b ~ ConfigPhaseF p NotifyTimeout) => LabelOptic "timeout" k (NotifyP p) (NotifyP p) a b Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods labelOptic :: Optic k NoIx (NotifyP p) (NotifyP p) a b Source #
Show (NotifyP 'ConfigPhaseArgs) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods showsPrec :: Int -> NotifyP 'ConfigPhaseArgs -> ShowS # show :: NotifyP 'ConfigPhaseArgs -> String # showList :: [NotifyP 'ConfigPhaseArgs] -> ShowS #
Show (NotifyP 'ConfigPhaseMerged) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods showsPrec :: Int -> NotifyP 'ConfigPhaseMerged -> ShowS # show :: NotifyP 'ConfigPhaseMerged -> String # showList :: [NotifyP 'ConfigPhaseMerged] -> ShowS #
Show (NotifyP 'ConfigPhaseToml) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods showsPrec :: Int -> NotifyP 'ConfigPhaseToml -> ShowS # show :: NotifyP 'ConfigPhaseToml -> String # showList :: [NotifyP 'ConfigPhaseToml] -> ShowS #
Eq (NotifyP 'ConfigPhaseArgs) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods (==) :: NotifyP 'ConfigPhaseArgs -> NotifyP 'ConfigPhaseArgs -> Bool # (/=) :: NotifyP 'ConfigPhaseArgs -> NotifyP 'ConfigPhaseArgs -> Bool #
Eq (NotifyP 'ConfigPhaseMerged) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods (==) :: NotifyP 'ConfigPhaseMerged -> NotifyP 'ConfigPhaseMerged -> Bool # (/=) :: NotifyP 'ConfigPhaseMerged -> NotifyP 'ConfigPhaseMerged -> Bool #
Eq (NotifyP 'ConfigPhaseToml) Source #
Instance details Defined in Shrun.Configuration.Data.Notify Methods (==) :: NotifyP 'ConfigPhaseToml -> NotifyP 'ConfigPhaseToml -> Bool # (/=) :: NotifyP 'ConfigPhaseToml -> NotifyP 'ConfigPhaseToml -> Bool #

type NotifyArgs = NotifyP 'ConfigPhaseArgs Source #

type NotifyToml = NotifyP 'ConfigPhaseToml Source #

type NotifyMerged = NotifyP 'ConfigPhaseMerged Source #

type NotifyEnv = NotifyP 'ConfigPhaseEnv Source #

mergeNotifyLogging :: NotifyArgs -> Maybe NotifyToml -> Maybe NotifyMerged Source #

Merges args and toml configs.

toEnv :: (HasCallStack, MonadDBus m, MonadThrow m) => NotifyMerged -> m NotifyEnv Source #