From 8f23b83b5b379250875b1e91c6828a53cb0455db Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 11 Mar 2013 01:37:26 -0400 Subject: skip non-directories in status --- Command/Status.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3