diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-11 01:37:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-11 01:37:26 -0400 |
| commit | 8f23b83b5b379250875b1e91c6828a53cb0455db (patch) | |
| tree | 6d572e7947b587cba5e40c6e3fbf3b5ce65f8777 /Command/Status.hs | |
| parent | 99dd2b48c41ff68f90bb075f7c559a6cc474fba0 (diff) | |
skip non-directories in status
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 5b9253780..ff71e0120 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -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 |