avoid crash when directory doesn't exist

2012-08-24 13:59:24 -04:00 · 2012-08-24 13:59:24 -04:00 · a52c552f0b
commit a52c552f0b
parent e58d19b533
1 changed files with 3 additions and 2 deletions
--- 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