From 45d41c035ec23d68f67b69255a5ab8f02b42a5ed Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 14 May 2019 12:08:03 +0200
Subject: 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.
---
 guix/scripts/build.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'guix/scripts')

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
-- 
cgit v1.2.3