I think the child payload is fixed

diff --git a/src/Data/Syncable.hs b/src/Data/Syncable.hs
index 5143630539aaf62a7ad4688d6e8c6f5adec1d4ab..c1032249ad8364e04a8f0267c087adf9067e8b8d 100644 (file)
--- a/src/Data/Syncable.hs
+++ b/src/Data/Syncable.hs
@@ -187,7 +187,7 @@ findModified basestate authoritativestate comparisonstate laststate =
                         (Just basev, Just authv) ->
                             if (authv /= lastv) && (authv /= basev)
                                then Just authv
-                               else if compv /= basev
+                               else if compv /= basev && (authv /= basev)
                                     then Just compv
                                     else Nothing