SampleResource.fs

type SampleResourceMethod =
    | Create of AsyncReplyChannel<unit>
    | SetTimestamp of DateTimeOffset * AsyncReplyChannel<unit>
 
type SampleResource() =
    let agent = MailboxProcessor<_>.Start(fun inbox ->
        let rec loop () = async {
            let! msg = inbox.Receive()
            match msg with
            | Create ch ->
                // ...
                ch.Reply()
                return! loop()
            | SetTimestamp (dt, ch) ->
                // ...
                ch.Reply()
                return! loop() }
        loop())
    member x.Create(): Async<unit> =
        agent.PostAndAsyncReply (fun ch -> Create ch)
    member x.SetTimestamp(dt: DateTimeOffset): Async<unit> =
        agent.PostAndAsyncReply (fun ch -> SetTimestamp(dt, ch))
    /// Generic Send, similar to Ruby's send method.
    member x.Send(msg: SampleResourceMethod) =
        agent.PostAndAsyncReply msg