refactored and generalized pre-command sanity checking

This commit is contained in:
Joey Hess 2011-10-27 16:31:35 -04:00
parent 66194684ac
commit 5b74b130a3
38 changed files with 73 additions and 67 deletions

View file

@ -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]