me/guix
Archived
1
0
Fork 0
Code Activity

git-version: Raise a condition instead of an error.

Browse source 
* guix/git-download.scm (git-version): Replace ERROR with RAISE
  and CONDITION.

This is a follow-up to commit bbf6bc1acc.
This commit is contained in:
Jakub Kądziołka 2020-04-23 14:21:00 +02:00
parent 938df0de73
commit e84d9dcd5b
No known key found for this signature in database
GPG key ID: E315A75846131564
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/git-download.scm
View file

@ -179,7 +179,9 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
;; can happen, for example, when the user swapped the revision and commit ;; can happen, for example, when the user swapped the revision and commit
;; arguments by mistake. ;; arguments by mistake.
(when (< (string-length commit) 7) (when (< (string-length commit) 7)
(error "git-version: commit ID unexpectedly short")) (raise
(condition
(&message (message "git-version: commit ID unexpectedly short")))))
(string-append version "-" revision "." (string-take commit 7))) (string-append version "-" revision "." (string-take commit 7)))
(define (git-file-name name version) (define (git-file-name name version)