From 881cc417e307a797de13edacb3e82485b239f3fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 18 Jan 2014 13:25:06 -0400 Subject: list: Fix specifying of files to list. --- Command/List.hs | 6 +++--- debian/changelog | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Command/List.hs b/Command/List.hs index 12c27c022..663da4500 100644 --- a/Command/List.hs +++ b/Command/List.hs @@ -33,7 +33,7 @@ allrepos = Option.flag [] "allrepos" "show all repositories, not only remotes" seek :: [CommandSeek] seek = - [ withValue getList $ withNothing . startHeader + [ withValue getList $ withWords . startHeader , withValue getList $ withFilesInGit . whenAnnexed . start ] @@ -58,8 +58,8 @@ getList = ifM (Annex.getFlag $ Option.name allrepos) return $ sortBy (comparing snd3) $ filter (\t -> thd3 t /= DeadTrusted) rs3 -startHeader :: [(UUID, RemoteName, TrustLevel)] -> CommandStart -startHeader l = do +startHeader :: [(UUID, RemoteName, TrustLevel)] -> [String] -> CommandStart +startHeader l _ = do liftIO $ putStrLn $ header $ map (\(_, n, t) -> (n, t)) l stop diff --git a/debian/changelog b/debian/changelog index 0d6020094..0b5845835 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,6 +2,7 @@ git-annex (5.20140118) UNRELEASED; urgency=medium * Remove --json option from commands not supporting it. * status: Support --json. + * list: Fix specifying of files to list. -- Joey Hess Sat, 18 Jan 2014 11:54:17 -0400 -- cgit v1.2.3