From: John Goerzen <jgoerzen@complete.org>
Date: Wed, 28 May 2008 09:17:03 +0000 (-0500)
Subject: Removed status modification return
X-Git-Url: https://code.delx.au/offlineimap/commitdiff_plain/ac1d7ce24122fcf535714bda8771eefb6b3d5833

Removed status modification return
---

diff --git a/src/Data/Syncable.hs b/src/Data/Syncable.hs
index c35b985..00cdecd 100644
--- a/src/Data/Syncable.hs
+++ b/src/Data/Syncable.hs
@@ -78,12 +78,11 @@ syncThem :: (Ord k, Show k) =>
             SyncCollection k  -- ^ Present state of master
          -> SyncCollection k  -- ^ Present state of child
          -> SyncCollection k  -- ^ Last state of child
-         -> ([SyncCommand k], [SyncCommand k], [SyncCommand k]) -- ^ Changes to make to (master, child, child state repo)
+         -> ([SyncCommand k], [SyncCommand k]) -- ^ Changes to make to (master, child)
 syncThem masterstate childstate lastchildstate =
-    (masterchanges, childchanges, statuschanges)
+    (masterchanges, childchanges)
     where masterchanges = [] 
           childchanges = map DeleteItem masterToChildDeletes
-          statuschanges = map DeleteItem masterToStatusDeletes
 
 {-
         # Delete local copies of remote messages.  This way,
@@ -96,8 +95,6 @@ syncThem masterstate childstate lastchildstate =
         FIXME: validate logic in situation of new folder here -}
 
           masterToChildDeletes = syncToDelete masterstate childstate
-          masterToStatusDeletes = filterKeys lastchildstate masterToChildDeletes
-
 
 {- | Returns a list of keys that exist in childstate but not in masterstate -}
 syncToDelete :: (Ord k) => 
diff --git a/testsrc/runtests.hs b/testsrc/runtests.hs
index 0c8a152..6ba2995 100644
--- a/testsrc/runtests.hs
+++ b/testsrc/runtests.hs
@@ -30,21 +30,21 @@ import TestInfrastructure
 
 prop_empty :: Bool
 prop_empty =
-    syncThem emptymap emptymap emptymap == ([], [], []) -- ([DeleteItem 5], [], [])
+    syncThem emptymap emptymap emptymap == ([], []) -- ([DeleteItem 5], [], [])
 
 prop_delAllFromChild :: SyncCollection Int -> Result
 prop_delAllFromChild inp =
-    let (resMaster, resChild, resState) = syncThem emptymap inp inp
+    let (resMaster, resChild) = syncThem emptymap inp inp
         expectedResChild = sort . map DeleteItem . Map.keys $ inp
-        in ([], expectedResChild, expectedResChild) @=? 
-           (resMaster, sort resChild, sort resState)
+        in ([], expectedResChild) @=? 
+           (resMaster, sort resChild)
            
 prop_addFromMaster :: SyncCollection Int -> Result
 prop_addFromMaster inp =
-    let (resMaster, resChild, resState) = syncThem inp emptymap emptymap
+    let (resMaster, resChild) = syncThem inp emptymap emptymap
         expectedResChild = sort . map CopyItem . Map.keys $ inp
-        in ([], expectedResChild, expectedResChild) @=? 
-           (resMaster, sort resChild, sort resState)
+        in ([], expectedResChild) @=? 
+           (resMaster, sort resChild)
 
 allt = [qctest "Empty" prop_empty,
         qctest "Del all from child" prop_delAllFromChild]