init: Make description an optional parameter.

This commit is contained in:
Joey Hess 2011-08-29 14:13:38 -04:00
parent b2c5639dcc
commit d1154d0837
3 changed files with 4 additions and 7 deletions

View file

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

1
debian/changelog vendored
View file

@ -3,6 +3,7 @@ git-annex (3.20110820) UNRELEASED; urgency=low
* Set EMAIL when running test suite so that git does not need to be
configured first. Closes: #638998
* The wget command will now be used in preference to curl, if available.
* init: Make description an optional parameter.
-- Joey Hess <joeyh@debian.org> Tue, 23 Aug 2011 13:41:01 -0400

View file

@ -119,9 +119,7 @@ Many git-annex commands will stage changes for later `git commit` by you.
Use this to undo an unlock command if you don't want to modify
the files, or have made modifications you want to discard.
* init description
Initializes git-annex with a description of the git repository.
* init [description]
Until a repository (or one of its remotes) has been initialized,
git-annex will refuse to operate on it, to avoid accidentially