diff options
Diffstat (limited to 'Storage.hs')
-rw-r--r-- | Storage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -119,8 +119,8 @@ retrieveShares (StorageLocations locs) sis updateprogress = do go (unusedlocs++[loc]) usedlocs' rest shares' -- | Returns descriptions of any failures. -uploadQueued :: Maybe LocalStorageDirectory -> IO [String] -uploadQueued d = do +tryUploadQueued :: Maybe LocalStorageDirectory -> IO [String] +tryUploadQueued d = do results <- forM locs $ \loc -> case uploadQueue loc of Nothing -> return [] Just q -> moveShares q loc |