为什么我的演员在使用 F# 的 akka.net 中没有因异常而停止

Question

我正在玩 akka.net 并试图了解监督。我以为我明白了，但它并没有像我期望的那样工作。

我尝试获取一个带有监视器和子actor的小样本，监视器应该在子actor出现异常时重新启动子actor。似乎孩子正在重新启动，但我不明白为什么，因为代码似乎没有执行我的SupervisorStrategy。我将策略更改为返回Directive.Stop 以检查我是否可以阻止演员，但这也不起作用。所以现在看来​​我有一个不可阻挡的演员，只要我不想杀死它，这是一件好事:)。运行示例的代码如下：

open Akka
open Akka.Actor
open Akka.Tools
open Akka.FSharp
open System

type MonitorMessage =
    | Create

type ChildMessage =
    | Ping
    | Kill

let test() =
    let systemName = "my-system"
    let system = System.create systemName (Configuration.load())

    let handleChildMessage = function
        | Ping ->
            printfn "Received %A" Ping
            printfn "Pong: %A" (DateTime.Now.Ticks)
        | Kill ->
            1/0 |> ignore

    let createChild parent id =
        spawnOpt parent (id.ToString()) (actorOf handleChildMessage)
            [ SpawnOption.SupervisorStrategy (Strategy.OneForOne (fun error ->
                match error with
                | _ ->
                    printfn "%A" error
                    Directive.Stop
                    )) ]

    let handleMonitorMessage (actor:Actor<MonitorMessage>) message =
        match message with
        | Create ->
            let sender = actor.Sender()
            sender <! createChild actor (Guid.NewGuid())

    let monitor = spawn system "monitor" (actorOf2 handleMonitorMessage)
    let child = monitor <? Create |> Async.RunSynchronously
    child <! Ping
    child <! Kill
    child <! Ping

test()
Console.ReadLine() |> ignore

Answer 1

1. 您的createChild 函数不会将actor 创建为监视器的子级。这是由于您已将 actor 系统传递给 spawnOpt 函数这一事实造成的 - 这意味着，生成的 actor 将是顶级的（直接存在于 actor 系统内核下）。您需要将其更改为 spawnOpt parent 才能将其创建为父母的孩子。
2. 监督策略选项意味着，拥有它的演员会将其应用于其孩子。因此，您需要为监视器设置它，而不是为孩子设置。