diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-03-27 05:22:31 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-03-27 05:22:31 +0100 |
| commit | 4c70f5242befb5786cb437559a4d8701e630bd29 (patch) | |
| tree | dbbff437004184d50c9a53f6c4897a85361aceb1 /gnu/home/services/shepherd.scm | |
| parent | a9e65e0341d5045e425e3cf8d741a3d13cfa35a1 (diff) | |
| parent | 929ddec8f4a181be653152c7436581c2adc54eee (diff) | |
| download | guix-4c70f5242befb5786cb437559a4d8701e630bd29.tar.gz guix-4c70f5242befb5786cb437559a4d8701e630bd29.zip | |
Merge branch 'master' into emacs-team
Diffstat (limited to 'gnu/home/services/shepherd.scm')
| -rw-r--r-- | gnu/home/services/shepherd.scm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm index 176f4575cb..962e633618 100644 --- a/gnu/home/services/shepherd.scm +++ b/gnu/home/services/shepherd.scm @@ -77,7 +77,19 @@ as shepherd package." (use-modules (srfi srfi-34) (system repl error-handling)) - (register-services (map load '#$files)) + (define (make-user-module) + ;; Copied from (shepherd support), where it's private. + (let ((m (make-fresh-user-module))) + (module-use! m (resolve-interface '(shepherd service))) + m)) + + (register-services + (map (lambda (file) + (save-module-excursion + (lambda () + (set-current-module (make-user-module)) + (load file)))) + '#$files)) #$@(if daemonize? `((action 'root 'daemonize)) |