me
/
guix
Archived
1
0
Fork 0
Code

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

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

This is a follow-up to commit bbf6bc1acc.
master
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
;; arguments by mistake.
(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)))
(define (git-file-name name version)