diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-18 13:25:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-18 13:25:06 -0400 |
| commit | 881cc417e307a797de13edacb3e82485b239f3fd (patch) | |
| tree | 8b43c2e1c2739b46fcbb4e41fb1458566716cd3a /Command/List.hs | |
| parent | 112041fa3c9a6a36b485806c60cf87ccf8a373ad (diff) | |
list: Fix specifying of files to list.
Diffstat (limited to 'Command/List.hs')
| -rw-r--r-- | Command/List.hs | 6 |
1 files changed, 3 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 |