From 7f6b5b7c2d8a218adcab7981653634a168ab188c Mon Sep 17 00:00:00 2001 From: Joshua Marner Date: Tue, 1 Oct 2024 15:49:18 -0500 Subject: [PATCH] Notify HasErrors property when it changes --- src/Elmish.WPF/ViewModels.fs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Elmish.WPF/ViewModels.fs b/src/Elmish.WPF/ViewModels.fs index e881e6b8..e58c8f8a 100644 --- a/src/Elmish.WPF/ViewModels.fs +++ b/src/Elmish.WPF/ViewModels.fs @@ -177,8 +177,10 @@ type [] internal DynamicViewModel<'model, 'msg> member _.CurrentModel : 'model = helper.Model member _.UpdateModel (newModel: 'model) : unit = + let prevHasErrors = (helper :> INotifyDataErrorInfo).HasErrors let eventsToRaise = ViewModelHelper.getEventsToRaise newModel helper helper <- { helper with Model = newModel } + let eventsToRaise = if prevHasErrors = (helper :> INotifyDataErrorInfo).HasErrors then eventsToRaise else (PropertyChanged "HasErrors") :: eventsToRaise ViewModelHelper.raiseEvents eventsToRaise helper override _.TryGetMember (binder, result) =