X-Git-Url: https://code.delx.au/offlineimap/blobdiff_plain/162c69289b6e98c5cf7704ef9dfde3cb2e77586f..6c24872c69dcf041423fff56cc3458c2e176552b:/src/Data/Syncable.hs

diff --git a/src/Data/Syncable.hs b/src/Data/Syncable.hs
index 08cd82a..97ec0f9 100644
--- 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. -}