mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid crash when directory doesn't exist

Browse source
This commit is contained in:
Joey Hess 2012-08-24 13:59:24 -04:00
parent e58d19b533
commit a52c552f0b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Threads/TransferScanner.hs
View file

@ -55,8 +55,9 @@ transferScannerThread st dstatus scanremotes transferqueue = do
- are first removed. - are first removed.
-} -}
startupScan = do startupScan = do
removeDirectoryRecursive void $ tryIO $
=<< runThreadState st (fromRepo transferScannedDir) removeDirectoryRecursive
=<< runThreadState st (fromRepo transferScannedDir)
addScanRemotes scanremotes True addScanRemotes scanremotes True
=<< knownRemotes <$> getDaemonStatus dstatus =<< knownRemotes <$> getDaemonStatus dstatus