diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-14 12:08:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-14 12:11:05 +0200 |
| commit | 45d41c035ec23d68f67b69255a5ab8f02b42a5ed (patch) | |
| tree | 2e3775be2d60e8c3575e240d33e7dfc790608ae8 /guix/scripts/build.scm | |
| parent | dcc3d4030fcdc83f10220a061f4b7e306a99a439 (diff) | |
| download | patches-45d41c035ec23d68f67b69255a5ab8f02b42a5ed.tar patches-45d41c035ec23d68f67b69255a5ab8f02b42a5ed.tar.gz | |
guix build: Gracefully handle invalid '--with-git-url' specs.
* guix/scripts/build.scm (transform-package-source-git-url): Add case
for when 'string-split' does not return exactly two elements.
Diffstat (limited to 'guix/scripts/build.scm')
| -rw-r--r-- | guix/scripts/build.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 8d5411ed43..8fa700c883 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -370,7 +370,10 @@ a checkout of the Git repository at the given URL." (package (inherit old) (source (git-checkout (url url) - (recursive? #t))))))))) + (recursive? #t))))))) + (_ + (leave (G_ "~a: invalid Git URL replacement specification~%") + spec)))) replacement-specs)) (define rewrite |