mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Use %store-directory.

Browse source 
* guix/packages.scm (patch-and-repack): Call %store-directory instead of
  duplicating its code.
This commit is contained in:
Taylan Ulrich Bayırlı/Kammer 2015-05-15 10:59:44 +02:00
parent 0272ee499d
commit 2fdcc6074e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/packages.scm
View file

@ -466,7 +466,7 @@ (define (first-file directory)
;; 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 #\-))