skip non-directories in status

This commit is contained in:
Joey Hess 2013-03-11 01:37:26 -04:00
parent fdf098db31
commit 0deb0a9658

View file

@ -68,8 +68,10 @@ start [] = do
globalStatus
stop
start ps = do
mapM_ localStatus ps
mapM_ localStatus =<< filterM isdir ps
stop
where
isdir = liftIO . catchBoolIO . (isDirectory <$$> getFileStatus)
globalStatus :: Annex ()
globalStatus = do