gistfile1.fs

open Akka.FSharp
open Akka
open Akka.Configuration
 
let system = System.create "my-system" (Configuration.defaultConfig())
 
let aref = 
    spawn system "my-actor" 
        (fun mailbox -> 
            let rec loop(state) = actor {
                let! message = mailbox.Receive()
                
                //pseudo code:
                // receive a message with upgraded code, extract the new state loop and loop with that
                // I don't do F# so this is probably wrong syntax :-)
                //
                //match message with
                //| Upgrade(newloop) -> return! newloop(state)
                //
                return! loop(state)
            }
            loop(...initial state...))
 
 aref <! Upgrade(..codequotation..)