From: John Goerzen <jgoerzen@complete.org>
Date: Thu, 29 May 2008 06:14:29 +0000 (-0500)
Subject: Woot, All changes is fixed!
X-Git-Url: https://code.delx.au/offlineimap/commitdiff_plain/6c24872c69dcf041423fff56cc3458c2e176552b?ds=sidebyside

Woot, All changes is fixed!
---

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. -}