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
Обсуждают сегодня