Woot, All changes is fixed!

diff --git a/src/Data/Syncable.hs b/src/Data/Syncable.hs
index 08cd82a10c5d19532a26ef22fd39f565ff803454..97ec0f911d5a44aa1afcc82177834ed453753373 100644 (file)
--- a/src/Data/Syncable.hs
+++ b/src/Data/Syncable.hs
@@ -126,9 +126,9 @@ syncBiDir masterstate childstate lastchildstate =
           -- then subtract out any items in the master changes that have the
           -- same key.
           childPayloadChanges = 
-              foldl (\m (k, v) -> Map.adjust (\_ -> v) k m)
+              Map.difference
                         (findModified childstate masterstate lastchildstate)
-                        (Map.toList $ findModified masterstate childstate lastchildstate)
+                        (findModified masterstate childstate lastchildstate)
 
 {- | Compares two SyncCollections, and returns the commands that, when
 applied to the first collection, would yield the second. -}