quasar: Add ObservableMap empty delta detection

Co-authored-by: Jan Beinke <[email protected]>
queezle42 · Jul 3, 2024 · a3e252d · a3e252d
1 parent 5dbafa2
commit a3e252d
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/quasar/src/Quasar/Observable/Map.hs b/quasar/src/Quasar/Observable/Map.hs
@@ -152,7 +152,12 @@ applyOperations ops old =
 instance Ord k => ObservableContainer (Map k) v where
   type ContainerConstraint canLoad exceptions (Map k) v a = IsObservableMap canLoad exceptions k v a
   type Delta (Map k) = (MapDelta k)
-  applyDelta (MapDelta ops) old = Just (applyOperations ops old)
+  applyDelta (MapDelta ops) old
+    | Map.null ops = Nothing
+    | otherwise = Just (applyOperations ops old)
+  validateDelta () delta@(MapDelta ops)
+    | Map.null ops = Nothing
+    | otherwise = Just delta
   mergeDelta (MapDelta old) (MapDelta new) = MapDelta (Map.union new old)
 
 instance ContainerCount (Map k) where