diff options
| -rw-r--r-- | guix/config.scm | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/guix/config.scm b/guix/config.scm index 29082b8..003aa82 100644 --- a/guix/config.scm +++ b/guix/config.scm @@ -39,27 +39,27 @@ ;;; this should eventually go upstream. ;;; -;(define my-fcgiwrap-shepherd-service -; (match-lambda -; (($ <fcgiwrap-configuration> package socket user group) -; (list (shepherd-service -; (provision '(fcgiwrap)) -; (documentation "Run the fcgiwrap daemon.") -; (requirement '(networking)) -; (start #~(make-forkexec-constructor -; '(#$(file-append package "/sbin/fcgiwrap") -; "-s" #$socket) -; #:user #$user #:group #$group)) -; (stop #~(make-kill-destructor))))))) -; -;(define my-fcgiwrap-service-type -; (service-type (name 'fcgiwrap) -; (extensions -; (list (service-extension shepherd-root-service-type -; my-fcgiwrap-shepherd-service) -; (service-extension account-service-type -; fcgiwrap-accounts))) -; (default-value (fcgiwrap-configuration)))) +(define my-fcgiwrap-shepherd-service + (match-lambda + (($ <fcgiwrap-configuration> package socket user group) + (list (shepherd-service + (provision '(fcgiwrap)) + (documentation "Run the fcgiwrap daemon.") + (requirement '(networking)) + (start #~(make-forkexec-constructor + '(#$(file-append package "/sbin/fcgiwrap") + "-s" #$socket) + #:user #$user #:group #$group)) + (stop #~(make-kill-destructor))))))) + +(define my-fcgiwrap-service-type + (service-type (name 'fcgiwrap) + (extensions + (list (service-extension shepherd-root-service-type + my-fcgiwrap-shepherd-service) + (service-extension account-service-type + fcgiwrap-accounts))) + (default-value (fcgiwrap-configuration)))) |