diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-29 14:13:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-29 14:13:38 -0400 |
| commit | d1154d0837f4dac18771a6a5c3ab96de4d5fcd90 (patch) | |
| tree | edd38f64b924189af8e55bbd2a2afd001b06a876 /Command/Init.hs | |
| parent | b2c5639dcc53f6e734643878f9696405fa6cae64 (diff) | |
init: Make description an optional parameter.
Diffstat (limited to 'Command/Init.hs')
| -rw-r--r-- | Command/Init.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Command/Init.hs b/Command/Init.hs index 019106051..2abe4c661 100644 --- a/Command/Init.hs +++ b/Command/Init.hs @@ -7,7 +7,7 @@ module Command.Init where -import Control.Monad (when) +import Control.Monad import Command import qualified Annex @@ -17,15 +17,13 @@ import Init command :: [Command] command = [standaloneCommand "init" paramDesc seek - "initialize git-annex with repository description"] + "initialize git-annex"] seek :: [CommandSeek] seek = [withWords start] start :: CommandStartWords start ws = do - when (null description) $ - error "please specify a description of this repository\n" showStart "init" description next $ perform description where |