diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-01-16 15:16:02 +0100 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-01-16 15:27:20 +0100 |
| commit | ee9a735bc8f544cf8eedc6c6a7e4ed2962663013 (patch) | |
| tree | 4f4ea54459e987e79a6db95ee484dd44eb02af40 /guix | |
| parent | ba07842c349444743c8fb19f08a42e5e6aa71035 (diff) | |
| download | patches-ee9a735bc8f544cf8eedc6c6a7e4ed2962663013.tar patches-ee9a735bc8f544cf8eedc6c6a7e4ed2962663013.tar.gz | |
graph: Add '--load-path' option.
* guix/scripts/graph.scm (%option): Add '--load-path' option.
* doc/guix.texi: Document it.
* tests/guix-graph.sh: Test it.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/graph.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/scripts/graph.scm b/guix/scripts/graph.scm index 7558cb1e85..53f407b2fc 100644 --- a/guix/scripts/graph.scm +++ b/guix/scripts/graph.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -35,6 +36,7 @@ #:use-module ((guix scripts build) #:select (show-transformation-options-help options->transformation + %standard-build-options %transformation-options)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) @@ -473,6 +475,9 @@ package modules, while attempting to retain user package modules." (lambda (opt name arg result) (alist-cons 'system arg (alist-delete 'system result eq?)))) + (find (lambda (option) + (member "load-path" (option-names option))) + %standard-build-options) (option '(#\h "help") #f #f (lambda args (show-help) @@ -501,6 +506,9 @@ Emit a representation of the dependency graph of PACKAGE...\n")) (display (G_ " -s, --system=SYSTEM consider the graph for SYSTEM--e.g., \"i686-linux\"")) (newline) + (display (G_ " + -L, --load-path=DIR prepend DIR to the package module search path")) + (newline) (show-transformation-options-help) (newline) (display (G_ " |