summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorzimoun <zimon.toutoune@gmail.com>2020-01-15 18:00:03 +0100
committerPierre Neidhardt <mail@ambrevar.xyz>2020-01-16 15:27:24 +0100
commit21f4fbdd8453e489fb89825c4226a0a0bda2bc17 (patch)
tree33c265af7845b6d47c41ab2d9520398fb9530f7c /guix
parent2d4688c1ea64f07866ffe976391d7ec3d371f6b5 (diff)
refresh: Add '--load-path' option.
* guix/scripts/refresh.scm (%option): Add '--load-path' option. * doc/guix.texi: Document it.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/refresh.scm18
1 files changed, 18 insertions, 0 deletions
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index daf6fcf947..bc8e906054 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -7,6 +7,7 @@
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -27,6 +28,7 @@
#:use-module (guix ui)
#:use-module (gcrypt hash)
#:use-module (guix scripts)
+ #:use-module ((guix scripts build) #:select (%standard-build-options))
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix packages)
@@ -116,6 +118,19 @@
(leave (G_ "unsupported policy: ~a~%")
arg)))))
+ ;; The short option -L is already used by --list-updaters, therefore
+ ;; it needs to be removed from %standard-build-options.
+ (let ((%load-path-option (find (lambda (option)
+ (member "load-path"
+ (option-names option)))
+ %standard-build-options)))
+ (option
+ (filter (lambda (name) (not (equal? #\L name)))
+ (option-names %load-path-option))
+ (option-required-arg? %load-path-option)
+ (option-optional-arg? %load-path-option)
+ (option-processor %load-path-option)))
+
(option '(#\h "help") #f #f
(lambda args
(show-help)
@@ -166,6 +181,9 @@ specified with `--select'.\n"))
used when 'key-download' is not specified"))
(newline)
(display (G_ "
+ --load-path=DIR prepend DIR to the package module search path"))
+ (newline)
+ (display (G_ "
-h, --help display this help and exit"))
(display (G_ "
-V, --version display version information and exit"))