Notify HasErrors property when it changes

elmish · Oct 1, 2024 · 7f6b5b7 · 7f6b5b7
1 parent 3c476a4
commit 7f6b5b7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Elmish.WPF/ViewModels.fs b/src/Elmish.WPF/ViewModels.fs
@@ -177,8 +177,10 @@ type [<AllowNullLiteral>] 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) =