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

list: Fix specifying of files to list.

Browse source
This commit is contained in:
Joey Hess 2014-01-18 13:25:06 -04:00
parent 163aee374a
commit 2b1a7895fc
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Command/List.hs
View file

@ -33,7 +33,7 @@ allrepos = Option.flag [] "allrepos" "show all repositories, not only remotes"
seek :: [CommandSeek] seek :: [CommandSeek]
seek = seek =
[ withValue getList $ withNothing . startHeader [ withValue getList $ withWords . startHeader
, withValue getList $ withFilesInGit . whenAnnexed . start , withValue getList $ withFilesInGit . whenAnnexed . start
] ]
@ -58,8 +58,8 @@ getList = ifM (Annex.getFlag $ Option.name allrepos)
return $ sortBy (comparing snd3) $ return $ sortBy (comparing snd3) $
filter (\t -> thd3 t /= DeadTrusted) rs3 filter (\t -> thd3 t /= DeadTrusted) rs3
startHeader :: [(UUID, RemoteName, TrustLevel)] -> CommandStart startHeader :: [(UUID, RemoteName, TrustLevel)] -> [String] -> CommandStart
startHeader l = do startHeader l _ = do
liftIO $ putStrLn $ header $ map (\(_, n, t) -> (n, t)) l liftIO $ putStrLn $ header $ map (\(_, n, t) -> (n, t)) l
stop stop

1
debian/changelog vendored
View file

@ -2,6 +2,7 @@ git-annex (5.20140118) UNRELEASED; urgency=medium
* Remove --json option from commands not supporting it. * Remove --json option from commands not supporting it.
* status: Support --json. * status: Support --json.
* list: Fix specifying of files to list.
-- Joey Hess <joeyh@debian.org> Sat, 18 Jan 2014 11:54:17 -0400 -- Joey Hess <joeyh@debian.org> Sat, 18 Jan 2014 11:54:17 -0400