distributed-process-supervisor-0.2.4: Supervisors for The Cloud Haskell Application Platform
Copyright(c) Tim Watson 2017
LicenseBSD3 (see the file LICENSE)
MaintainerTim Watson <[email protected]>
Stabilityexperimental
Portabilitynon-portable (requires concurrency)
Safe HaskellNone
LanguageHaskell2010

Control.Distributed.Process.Supervisor.Management

Description

 
Synopsis

Documentation

supervisionAgentId :: MxAgentId Source #

The MxAgentId for the node monitoring agent.

supervisionMonitor :: Process ProcessId Source #

Starts the supervision monitoring agent.

monitorSupervisor :: SupervisorPid -> Process (ReceivePort MxSupervisor) Source #

Monitor the supervisor for the given pid. Binds a typed channel to the calling process, to which the resulting ReceivePort belongs.

Multiple monitors can be created for any calling process - sup pair. Each monitor maintains its own typed channel, which will only contain MxSupervisor entries obtained after the channel was established.

unmonitorSupervisor :: SupervisorPid -> Process () Source #

Removes all monitors for sup, associated with the calling process. It is not possible to delete individual monitors (i.e. typed channels).

Mx Event Type

data MxSupervisor Source #

Supervisor event data published to the management API

Instances

Instances details
Generic MxSupervisor Source # 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

Associated Types

type Rep MxSupervisor 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

type Rep MxSupervisor = D1 ('MetaData "MxSupervisor" "Control.Distributed.Process.Supervisor.Types" "distributed-process-supervisor-0.2.4-9Coa3YKjS9UBd0SXOnmP9S" 'False) (((C1 ('MetaCons "SupervisorBranchRestarted" 'PrefixI 'True) ((S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey)) :*: (S1 ('MetaSel ('Just "diedReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DiedReason) :*: S1 ('MetaSel ('Just "branchStrategy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RestartStrategy))) :+: C1 ('MetaCons "SupervisedChildRestarting" 'PrefixI 'True) ((S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: S1 ('MetaSel ('Just "childInScope") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ChildPid))) :*: (S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey) :*: S1 ('MetaSel ('Just "exitReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason)))) :+: (C1 ('MetaCons "SupervisedChildStarted" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childRef") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildRef) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey))) :+: C1 ('MetaCons "SupervisedChildStartFailure" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "startFailure") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 StartFailure) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey))))) :+: ((C1 ('MetaCons "SupervisedChildDied" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildPid) :*: S1 ('MetaSel ('Just "exitReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason))) :+: C1 ('MetaCons "SupervisedChildInitFailed" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildPid) :*: S1 ('MetaSel ('Just "initFailure") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildInitFailure)))) :+: (C1 ('MetaCons "SupervisedChildStopped" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childRef") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildRef) :*: S1 ('MetaSel ('Just "diedReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DiedReason))) :+: C1 ('MetaCons "SupervisorShutdown" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "shutdownMode") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ShutdownMode) :*: S1 ('MetaSel ('Just "exitRason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason))))))
Show MxSupervisor Source # 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

Binary MxSupervisor Source # 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

NFData MxSupervisor Source # 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

Methods

rnf :: MxSupervisor -> () #

type Rep MxSupervisor Source # 
Instance details

Defined in Control.Distributed.Process.Supervisor.Types

type Rep MxSupervisor = D1 ('MetaData "MxSupervisor" "Control.Distributed.Process.Supervisor.Types" "distributed-process-supervisor-0.2.4-9Coa3YKjS9UBd0SXOnmP9S" 'False) (((C1 ('MetaCons "SupervisorBranchRestarted" 'PrefixI 'True) ((S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey)) :*: (S1 ('MetaSel ('Just "diedReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DiedReason) :*: S1 ('MetaSel ('Just "branchStrategy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RestartStrategy))) :+: C1 ('MetaCons "SupervisedChildRestarting" 'PrefixI 'True) ((S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: S1 ('MetaSel ('Just "childInScope") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe ChildPid))) :*: (S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey) :*: S1 ('MetaSel ('Just "exitReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason)))) :+: (C1 ('MetaCons "SupervisedChildStarted" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childRef") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildRef) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey))) :+: C1 ('MetaCons "SupervisedChildStartFailure" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "startFailure") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 StartFailure) :*: S1 ('MetaSel ('Just "childSpecKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildKey))))) :+: ((C1 ('MetaCons "SupervisedChildDied" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildPid) :*: S1 ('MetaSel ('Just "exitReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason))) :+: C1 ('MetaCons "SupervisedChildInitFailed" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildPid) :*: S1 ('MetaSel ('Just "initFailure") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildInitFailure)))) :+: (C1 ('MetaCons "SupervisedChildStopped" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "childRef") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChildRef) :*: S1 ('MetaSel ('Just "diedReason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DiedReason))) :+: C1 ('MetaCons "SupervisorShutdown" 'PrefixI 'True) (S1 ('MetaSel ('Just "supervisorPid") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SupervisorPid) :*: (S1 ('MetaSel ('Just "shutdownMode") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ShutdownMode) :*: S1 ('MetaSel ('Just "exitRason") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ExitReason))))))