~ruther/guix-local: guix-package: Use directory names from (guix config).

53f974fd45ae9fb8401fd541adf25bcfae3c36af — Ludovic Courtès 13 years ago 8e1cd71

guix-package: Use directory names from (guix config).

* guix-package.in (%profile-directory): Use %STATE-DIRECTORY instead of
  a hard-coded directory.

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M guix-package.in

M guix-package.in => guix-package.in +2 -2

@@ 35,6 35,7 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0"    \
   #:use-module (guix derivations)
   #:use-module (guix packages)
   #:use-module (guix utils)
+  #:use-module (guix config)
   #:use-module (ice-9 ftw)
   #:use-module (ice-9 format)
   #:use-module (ice-9 match)


@@ 61,8 62,7 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0"    \
          (cut string-append <> "/.guix-profile")))
 
 (define %profile-directory
-  (string-append "/nix/var/nix/profiles/"
-                 "guix/"
+  (string-append %state-directory "/profiles/"
                  (or (and=> (getenv "USER")
                             (cut string-append "per-user/" <>))
                      "default")))