diff options
| author | Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> | 2015-05-15 10:59:44 +0200 |
|---|---|---|
| committer | Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> | 2015-05-15 16:42:54 +0200 |
| commit | 2fdcc6074e61ed6375f624c671e8c0fae7bd94b0 (patch) | |
| tree | 7520c12d279fb91cdee8f2778cb73ffdbfb173bb | |
| parent | 0272ee499dbd985b2368c55530b16827b7926232 (diff) | |
| download | guix-2fdcc6074e61ed6375f624c671e8c0fae7bd94b0.tar.gz guix-2fdcc6074e61ed6375f624c671e8c0fae7bd94b0.zip | |
packages: Use %store-directory.
* guix/packages.scm (patch-and-repack): Call %store-directory instead of
duplicating its code.
| -rw-r--r-- | guix/packages.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index a979f31a32..f6dda451ad 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -466,7 +466,7 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET." ;; SOURCE may be either a directory or a tarball. (and (if (file-is-directory? #+source) - (let* ((store (or (getenv "NIX_STORE") "/gnu/store")) + (let* ((store (%store-directory)) (len (+ 1 (string-length store))) (base (string-drop #+source len)) (dash (string-index base #\-)) |