summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-08-29 14:13:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-08-29 14:13:38 -0400
commitd1154d0837f4dac18771a6a5c3ab96de4d5fcd90 (patch)
treeedd38f64b924189af8e55bbd2a2afd001b06a876 /Command
parentb2c5639dcc53f6e734643878f9696405fa6cae64 (diff)
init: Make description an optional parameter.
Diffstat (limited to 'Command')
-rw-r--r--Command/Init.hs6
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