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

factored out some useful error catching methods

Browse source
This commit is contained in:
Joey Hess 2011-11-10 20:24:24 -04:00
parent a71c03bc51
commit 49d2177d51
15 changed files with 54 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Upgrade/V2.hs
View file

@ -69,7 +69,7 @@ locationLogs = do
files <- mapM tryDirContents (concat levelb)
return $ mapMaybe islogfile (concat files)
where
tryDirContents d = catch (dirContents d) (return . const [])
tryDirContents d = catchDefaultIO (dirContents d) []
islogfile f = maybe Nothing (\k -> Just (k, f)) $
logFileKey $ takeFileName f