Added masterchanges start

[offlineimap] / src / Data / Syncable.hs

diff --git a/src/Data/Syncable.hs b/src/Data/Syncable.hs
index 97fdaa008b140139b75dd09dcd128bce393ca10c..0b0b9b1035d7d67d049c766bd35791c92dfd0e54 100644 (file)
--- a/src/Data/Syncable.hs
+++ b/src/Data/Syncable.hs
@@ -81,9 +81,10 @@ syncThem :: (Ord k, Show k) =>
          -> ([SyncCommand k], [SyncCommand k]) -- ^ Changes to make to (master, child)
 syncThem masterstate childstate lastchildstate =
     (masterchanges, childchanges)
-    where masterchanges = [] 
-          childchanges = map DeleteItem masterToChildDeletes
-          masterToChildDeletes = findDeleted masterstate childstate lastchildstate
+    where masterchanges = map DeleteItem .
+                          findDeleted childstate masterstate $ lastchildstate
+          childchanges = map DeleteItem . 
+                         findDeleted masterstate childstate $ lastchildstate
 
 {- | Returns a list of keys that exist in state1 and lastchildstate
 but not in state2 -}