ElmishWPFReducer.fs

/// Application default starting state
let init (): Model = {
  Turns = 0
  Servers = [
    {
      Id=1
      Name = "SRV-PROD-1"
      Role = Production
    }
  ]
}
  
/// Actual reducer function
let update (msg: Msg) (model: Model) : Model =
  match msg with 
  | NextTurn -> {model with Turns = model.Turns + 1}
  | Restart -> init()