diff options
Diffstat (limited to 'gnu/services/herd.scm')
| -rw-r--r-- | gnu/services/herd.scm | 18 |
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 |
