Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
module Actors =
type MailBox = Eventsourced<GameCommand, obj, State>
let Logger = Serilog.Log.Logger
let update state (evnt : obj) = state
type Apply = MailBox -> State -> obj -> State
let apply : Apply = fun m s e -> s //(mailbox : MailBox) (state : State) (evnt : obj) = state
type Exec = MailBox -> State -> GameCommand -> unit
open MoveValidation
let exec : Exec = fun m s c -> () // (mailbox : MailBox) (state : State) (command : GameCommand) = ()
let Run system userName settings =
let seed = Seed.Create() |> Seed.Generate
let state = State.Create settings
spawnPersist system "dupa123" {
state = state
apply = apply
exec = exec
} []
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.