diff options
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 01ea3c22b..46695469e 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -127,9 +127,8 @@ expensiveScan urlrenderer rs = unless onlyweb $ do debug ["finished scan of", show visiblers] - nuke <- asIO1 $ finishRemovingRemote urlrenderer - liftIO $ forM_ (S.toList removablers) $ - void . tryNonAsync . nuke + remove <- asIO1 $ removableRemote urlrenderer + liftIO $ mapM_ (void . tryNonAsync . remove) $ S.toList removablers where onlyweb = all (== webUUID) $ map Remote.uuid rs visiblers = let rs' = filter (not . Remote.readonly) rs |