diff options
Diffstat (limited to 'Command/Wanted.hs')
-rw-r--r-- | Command/Wanted.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Wanted.hs b/Command/Wanted.hs index 07f5ee7c3..215595a52 100644 --- a/Command/Wanted.hs +++ b/Command/Wanted.hs @@ -17,7 +17,7 @@ import Types.StandardGroups import qualified Data.Map as M -cmd :: [Command] +cmd :: Command cmd = cmd' "wanted" "get or set preferred content expression" preferredContentMapRaw preferredContentSet @@ -27,8 +27,8 @@ cmd' -> String -> Annex (M.Map UUID PreferredContentExpression) -> (UUID -> PreferredContentExpression -> Annex ()) - -> [Command] -cmd' name desc getter setter = [command name pdesc seek SectionSetup desc] + -> Command +cmd' name desc getter setter = command name pdesc seek SectionSetup desc where pdesc = paramPair paramRemote (paramOptional paramExpression) |