diff options
author | Alex Kost <alezost@gmail.com> | 2016-03-31 21:36:18 +0300 |
---|---|---|
committer | Alex Kost <alezost@gmail.com> | 2016-04-04 20:11:22 +0300 |
commit | 619ff9066d92f061fe17ab31748fa53d4648a697 (patch) | |
tree | bae8584c7e07bf678bdaa42e45199a59db77d83a | |
parent | 7d0978f56f33717eb355bf6812c5dd3d02a1676d (diff) | |
download | patches-619ff9066d92f061fe17ab31748fa53d4648a697.tar patches-619ff9066d92f061fe17ab31748fa53d4648a697.tar.gz |
emacs: Use (guix scripts lint) only when needed.
* emacs/guix-main.scm: Do not use (guix scripts pull) module.
(lint-checker-names): Adjust to use it.
-rw-r--r-- | emacs/guix-main.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index eb79adb475..925d2b2b40 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -58,7 +58,6 @@ (guix licenses) (guix utils) (guix ui) - (guix scripts lint) (guix scripts package) (gnu packages) (gnu system)) @@ -1022,8 +1021,9 @@ Return #t if the shell command was executed successfully." (define (lint-checker-names) "Return a list of names of available lint checkers." (map (lambda (checker) - (symbol->string (lint-checker-name checker))) - %checkers)) + (symbol->string ((@ (guix scripts lint) lint-checker-name) + checker))) + (@ (guix scripts lint) %checkers))) (define (package-names) "Return a list of names of available packages." |