tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-25 19:50:30 +02:00
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
1 changed files with 3 additions and 1 deletions
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)