Binding value WPF Elmish

twoway_binding_elmish.fs

type Model =
    {
        Count: int
    }

type Msg =
    | SetCount of int


let init() = { Count = 0 }

let update msg model =
      match msg with
      | SetCount n -> { model with Count = n } 

 let view _ _ =
    [  "Count" |> Binding.twoWay (fun m -> (int m.Count)) (fun v m -> v |> int |> SetCount) ]