diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-27 16:31:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-27 16:31:35 -0400 |
| commit | 5b74b130a39d8c45e7d24520d838d6c1635582c7 (patch) | |
| tree | 3d2816f028e7135a168d64c6342e1a2588260417 /Command/InitRemote.hs | |
| parent | 66194684acaf8dc5c72e5a163465b42050cf9212 (diff) | |
refactored and generalized pre-command sanity checking
Diffstat (limited to 'Command/InitRemote.hs')
| -rw-r--r-- | Command/InitRemote.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs index 073ba72f9..8f97199b7 100644 --- a/Command/InitRemote.hs +++ b/Command/InitRemote.hs @@ -17,10 +17,9 @@ import qualified Types.Remote as R import Annex.UUID command :: [Command] -command = [repoCommand "initremote" - (paramPair paramName $ - paramOptional $ paramRepeating paramKeyValue) seek - "sets up a special (non-git) remote"] +command = [Command "initremote" + (paramPair paramName $ paramOptional $ paramRepeating paramKeyValue) + needsRepo seek "sets up a special (non-git) remote"] seek :: [CommandSeek] seek = [withWords start] |