@@ -87,8 +87,8 @@ Return DIRECTORY on success."
((('commit text ('signer fingerprint)) rest ...)
(git "commit" "-m" text (string-append "--gpg-sign=" fingerprint))
(loop rest))
- ((('tag name) rest ...)
- (git "tag" name)
+ ((('tag name text) rest ...)
+ (git "tag" "-m" text name)
(loop rest))
((('branch name) rest ...)
(git "branch" name)
@@ -329,7 +329,7 @@
(commit "first commit")
(add "src/a.txt" "A")
(commit "second commit")
- (tag "tag-for-first-news-entry")
+ (tag "tag-for-first-news-entry" "First news entry!")
(add "news.scm"
,(lambda (repository)
(let ((previous