diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-08-16 11:41:25 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-08-16 11:41:25 -0700 |
| commit | 379f036b39e0f7dac360ba04b281f6ea4ce8f20e (patch) | |
| tree | 01a86517d6234562088561c3c4b51365ed722807 /Storage.hs | |
| parent | 680449e656820db2b899a8631060cf62359b9b74 (diff) | |
| parent | 0229f026b1ae0344c4c052593564800035268d81 (diff) | |
| download | keysafe-379f036b39e0f7dac360ba04b281f6ea4ce8f20e.tar.gz | |
Merge tag '0.20170811'
tagging package keysafe version 0.20170811
# gpg: Signature made Fri 11 Aug 2017 03:58:54 PM MST
# gpg: using RSA key 28A500C35207EAB72F6C0F25DB12DB0FF05F8F38
# gpg: Good signature from "Joey Hess <joeyh@joeyh.name>" [full]
# Primary key fingerprint: E85A 5F63 B31D 24C1 EBF0 D81C C910 D922 2512 E3C7
# Subkey fingerprint: 28A5 00C3 5207 EAB7 2F6C 0F25 DB12 DB0F F05F 8F38
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 |