aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/build/profiles.scm3
-rw-r--r--guix/profiles.scm6
2 files changed, 5 insertions, 4 deletions
diff --git a/guix/build/profiles.scm b/guix/build/profiles.scm
index 2becc6b9af..6e316d5d2c 100644
--- a/guix/build/profiles.scm
+++ b/guix/build/profiles.scm
@@ -24,7 +24,8 @@
#:use-module (ice-9 ftw)
#:use-module (ice-9 match)
#:use-module (ice-9 pretty-print)
- #:export (build-profile))
+ #:export (ensure-writable-directory
+ build-profile))
;;; Commentary:
;;;
diff --git a/guix/profiles.scm b/guix/profiles.scm
index c2cf1bf070..0f73455d24 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -631,21 +631,21 @@ creates the GTK+ 'icon-theme.cache' file for each theme."
#~(begin
(use-modules (guix build utils)
(guix build union)
+ (guix build profiles)
(srfi srfi-26)
(ice-9 ftw))
+
(let* ((destdir (string-append #$output "/share/icons"))
(icondirs (filter file-exists?
(map (cut string-append <> "/share/icons")
'#$(manifest-inputs manifest))))
(update-icon-cache (string-append
#+gtk+ "/bin/gtk-update-icon-cache")))
- ;; XXX: Should move to (guix build utils).
- (define ensure-writable-directory
- (@@ (guix build profiles) ensure-writable-directory))
;; Union all the icons.
(mkdir-p (string-append #$output "/share"))
(union-build destdir icondirs)
+
;; Update the 'icon-theme.cache' file for each icon theme.
(for-each
(lambda (theme)