summaryrefslogtreecommitdiff
path: root/Command/List.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/List.hs')
-rw-r--r--Command/List.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/List.hs b/Command/List.hs
index ba27da702..723f53b46 100644
--- a/Command/List.hs
+++ b/Command/List.hs
@@ -25,13 +25,14 @@ import Git.Types (RemoteName)
cmd :: Command
cmd = noCommit $ withOptions (allrepos : annexedMatchingOptions) $
- command "list" paramPaths seek
- SectionQuery "show which remotes contain files"
+ command "list" SectionQuery
+ "show which remotes contain files"
+ paramPaths (withParams seek)
allrepos :: Option
allrepos = flagOption [] "allrepos" "show all repositories, not only remotes"
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek ps = do
list <- getList
printHeader list