IViewModel<'model, 'msg> with
member _.CurrentModel = helper.Model
member _.UpdateModel(newModel: 'model) =
let eventsToRaise = ViewModelHelper.getEventsToRaise newModel helper
helper <- { helper with Model = newModel }
ViewModelHelper.raiseEvents eventsToRaise helper
interface IViewModel<obj, obj> with
member vm.CurrentModel = (vm :> IViewModel<Model, Msg>).CurrentModel
member vm.UpdateModel msg = (vm :> IViewModel<Model, Msg>).UpdateModel (unbox msg)
я помню старую ишую про 2 одинаковых дженерик интерфейса на тип, но не помню чо там с ней, надо рыться в чьих-то аналах
слушай, говорят тыщу лет назад починили https://github.com/fsharp/fslang-suggestions/issues/545
Обсуждают сегодня