diff options
| author | Jakub Kądziołka <kuba@kadziolka.net> | 2020-04-23 14:21:00 +0200 |
|---|---|---|
| committer | Jakub Kądziołka <kuba@kadziolka.net> | 2020-04-23 14:23:03 +0200 |
| commit | e84d9dcd5b80fbacc2853bde53cf0e2da572beb5 (patch) | |
| tree | 3a2fb6a3b3dc41ba00979f14325f759d75d3e6de | |
| parent | 938df0de739aa13c2fb483f440ec1db281a52aaa (diff) | |
| download | guix-e84d9dcd5b80fbacc2853bde53cf0e2da572beb5.tar guix-e84d9dcd5b80fbacc2853bde53cf0e2da572beb5.tar.gz | |
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 bbf6bc1acc9bbdebf7ee7b68c0fa091733a5f6e1.
| -rw-r--r-- | guix/git-download.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/git-download.scm b/guix/git-download.scm index ef0bb2e281..a1c1adf760 100644 --- a/guix/git-download.scm +++ b/guix/git-download.scm @@ -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) |