[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#29468] [PATCH 1/2] services: desktop: Create /var/run/udisks2 for t
From: |
Christopher Baines |
Subject: |
[bug#29468] [PATCH 1/2] services: desktop: Create /var/run/udisks2 for the udisks service. |
Date: |
Mon, 27 Nov 2017 08:48:14 +0000 |
* gnu/services/desktop.scm (%udisks-activation): New variable.
(udisks-service-type)[extensions]: Extend the activation service type with
%udisks-activation.
---
gnu/services/desktop.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 4b5100c27..ec33e1d5e 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -507,6 +507,15 @@ site} for more information."
(udisks udisks-configuration-udisks
(default udisks)))
+(define %udisks-activation
+ (with-imported-modules '((guix build utils))
+ #~(begin
+ (use-modules (guix build utils))
+
+ (let ((run-dir "/var/run/udisks2"))
+ (mkdir-p run-dir)
+ (chmod run-dir #o700)))))
+
(define udisks-service-type
(let ((udisks-package (lambda (config)
(list (udisks-configuration-udisks config)))))
@@ -518,6 +527,8 @@ site} for more information."
udisks-package)
(service-extension udev-service-type
udisks-package)
+ (service-extension activation-service-type
+ (const %udisks-activation))
;; Profile 'udisksctl' & co. in the system profile.
(service-extension profile-service-type
--
2.14.2