diff options
Diffstat (limited to 'Storage.hs')
-rw-r--r-- | Storage.hs | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -73,9 +73,6 @@ problemStoringIn (StorageLocations locs) tunables -- -- If a server is not currently accessible, it will be queued locally. -- If any uploads are queued, returns True. --- --- TODO: Add shuffling and queueing/chaffing to prevent --- correlation of related shares. storeShares :: StorageLocations -> ShareIdents -> [S.Set Share] -> UpdateProgress -> IO (StoreResult, Bool, [Storage]) storeShares (StorageLocations locs) allsis shares updateprogress = do ((r, anyqueued), usedlocs) <- go allsis shares [] False |