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

skip non-directories in status

Browse source
This commit is contained in:
Joey Hess 2013-03-11 01:37:26 -04:00
parent fdf098db31
commit 0deb0a9658
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Status.hs
View file

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