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

@ -23,7 +23,8 @@ import qualified Utility.Dot as Dot
data Link = Link Git.Repo Git.Repo
command :: [Command]
command = [repoCommand "map" paramNothing seek "generate map of repositories"]
command = [Command "map" paramNothing needsNothing seek
"generate map of repositories"]
seek :: [CommandSeek]
seek = [withNothing start]