Proto.actor and F#

Program.fs

open System
open Proto
open System.Threading.Tasks

type Message = {Text: string}
type Message2 = 
    | Text of string

module Proto = 
    let createActor<'T> f = 
        let create () =
            { new IActor 
                with member this.ReceiveAsync(context: IContext) = 
                    let msg = context.Message
                    match msg with
                    | :? 'T as x -> f x
                    | _ -> printfn "Invalid message"
                    Actor.Done }
        Actor.FromProducer(fun () -> create())

[<EntryPoint>]
let main argv =
    let handleMessage msg = 
        match msg with
        | Text t -> printfn "This could work"

    let props = Proto.createActor handleMessage // Actor.FromProducer(fun () -> (new MyActor() :> IActor))
    let pid = Actor.Spawn(props)
    pid.Tell({Text = "Tomas"})
    pid.Tell(Text "Tomas")
    System.Console.ReadLine() |> ignore
    0