summaryrefslogtreecommitdiff
path: root/gnu/services/herd.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services/herd.scm')
-rw-r--r--gnu/services/herd.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index d276ba1b74c..777a8f8a3ae 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -18,6 +18,15 @@
18;;; You should have received a copy of the GNU General Public License 18;;; You should have received a copy of the GNU General Public License
19;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. 19;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20 20
21;;; Commentary:
22;;;
23;;; This module provides an interface to the GNU Shepherd, similar to the
24;;; 'herd' command. Essentially it implements a subset of the (shepherd comm)
25;;; module, but focusing only on the parts relevant to 'guix system
26;;; reconfigure'.
27;;;
28;;; Code:
29
21(define-module (gnu services herd) 30(define-module (gnu services herd)
22 #:use-module (srfi srfi-1) 31 #:use-module (srfi srfi-1)
23 #:use-module (srfi srfi-9) 32 #:use-module (srfi srfi-9)
@@ -63,15 +72,6 @@
63 restart-service 72 restart-service
64 wait-for-service)) 73 wait-for-service))
65 74
66;;; Commentary:
67;;;
68;;; This module provides an interface to the GNU Shepherd, similar to the
69;;; 'herd' command. Essentially it implements a subset of the (shepherd comm)
70;;; module, but focusing only on the parts relevant to 'guix system
71;;; reconfigure'.
72;;;
73;;; Code:
74
75(define %shepherd-socket-file 75(define %shepherd-socket-file
76 (let ((uid (getuid))) 76 (let ((uid (getuid)))
77 (make-parameter (if (zero? uid) ;root 77 (make-parameter (if (zero? uid) ;root