diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-24 13:59:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-24 13:59:24 -0400 |
| commit | a52c552f0bd79c7aabcbf7f9429d0881d0dfa2d3 (patch) | |
| tree | 3b2e4a9d54ad5b09e314b26219d5c2c3dcd967b0 /Assistant/Threads/TransferScanner.hs | |
| parent | e58d19b53378b93818620518ddbc09a0c3a895dd (diff) | |
avoid crash when directory doesn't exist
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 38b76cfae..5a55cf354 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -55,8 +55,9 @@ transferScannerThread st dstatus scanremotes transferqueue = do - are first removed. -} startupScan = do - removeDirectoryRecursive - =<< runThreadState st (fromRepo transferScannedDir) + void $ tryIO $ + removeDirectoryRecursive + =<< runThreadState st (fromRepo transferScannedDir) addScanRemotes scanremotes True =<< knownRemotes <$> getDaemonStatus dstatus |