runMasterACP :: ParamACP () -> DNA () -> Process ()
runMasterACP (ParamACP self () resources actorP) act = do
    taggedMessage "ACP" "Starting master ACP"
    -- Start actor process
    me  <- getSelfPid
    -- FIXME: understand how do we want to monitor state of child
    --        process? Do we want to just die unconditionally or maybe
    --        we want to do something.
    pid <- spawnLocal (link me >> runDnaProgram act)
    _   <- monitor pid
    send pid (ACP me,actorP)
    -- Start listening on events
    startAcpLoop self pid resources
runMasterACP :: ParamACP () -> DNA () -> Process ()
runMasterACP (ParamACP self () resources actorP) act = do
    taggedMessage "ACP" "Starting master ACP"
    -- Start actor process
    me  <- getSelfPid
    -- FIXME: understand how do we want to monitor state of child
    --        process? Do we want to just die unconditionally or maybe
    --        we want to do something.
    pid <- spawnLocal (link me >> runDnaProgram act)
    _   <- monitor pid
    send pid (ACP me,actorP)
    -- Start listening on events
    startAcpLoop self pid resources
runMasterACP (ParamACP self () resources actorP) act = do
    taggedMessage "ACP" "Starting master ACP"
    -- Start actor process
    me  <- getSelfPid
    -- FIXME: understand how do we want to monitor state of child
    --        process? Do we want to just die unconditionally or maybe
    --        we want to do something.
    pid <- spawnLocal (link me >> runDnaProgram act)
    _   <- monitor pid
    send pid (ACP me,actorP)
    -- Start listening on events
    startAcpLoop self pid resources