From 807c2507d7fe22d57a30d1aae4c321ddc11c7849 Mon Sep 17 00:00:00 2001 From: Florian Dold Date: Mon, 3 Dec 2018 17:57:41 +0100 Subject: fcgi --- guix/config.scm | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) (limited to 'guix') 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 -; (($ 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 + (($ 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)))) -- cgit v1.2.3