From 86cdfc451bad61faa66f100208c95f3275050957 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 23 Nov 2015 17:37:29 +0100
Subject: guix download: Fail when more than one URL is passed.

* guix/scripts/download.scm (guix-download)[parse-option]: Call 'leave'
when passed an extra argument.
* tests/guix-download.sh: Add test.
---
 guix/scripts/download.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'guix/scripts/download.scm')

diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm
index b81295e5d9..6ebc14f573 100644
--- a/guix/scripts/download.scm
+++ b/guix/scripts/download.scm
@@ -96,6 +96,9 @@ (define (parse-options)
                 (lambda (opt name arg result)
                   (leave (_ "~A: unrecognized option~%") name))
                 (lambda (arg result)
+                  (when (assq 'argument result)
+                    (leave (_ "~A: extraneous argument~%") arg))
+
                   (alist-cons 'argument arg result))
                 %default-options))
 
-- 
cgit v1.2.3