TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

pull: Accept no non-option arguments.

Browse source 
* guix/scripts/pull.scm (guix-pull): LEAVE if any non-option arguments
were passed.
This commit is contained in:
Tobias Geerinckx-Rice 2020-12-05 16:46:47 +01:00
parent cebfb29abb
commit 4d0b61a1f6
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/scripts/pull.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -754,10 +755,14 @@ (define (environment-variable)
(define-command (guix-pull . args)
(synopsis "pull the latest revision of Guix")
(define (no-arguments arg _‌)
(leave (G_ "~A: extraneous argument~%") arg))
(with-error-handling
(with-git-error-handling
(let* ((opts (parse-command-line args %options
(list %default-options)))
(list %default-options)
#:argument-handler no-arguments))
(substitutes? (assoc-ref opts 'substitutes?))
(dry-run? (assoc-ref opts 'dry-run?))
(channels (channel-list opts))