1 files changed, 2 insertions, 2 deletions
diff --git a/Storage.hs b/Storage.hs
index ef042ba..aa52d7c 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -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