diff --git a/glicid/services/networking.scm b/glicid/services/networking.scm index 303ed57..85a64fc 100644 --- a/glicid/services/networking.scm +++ b/glicid/services/networking.scm @@ -58,7 +58,7 @@ #:log-file #$log-file #:user (passwd:uid (getpwnam "squid")) )) - (stop #~(exec-command + (stop #~(lambda _ (exec-command (list #$(file-append squid "/sbin/squid") "-d" #$loglevel @@ -69,12 +69,12 @@ #:pid-file #$pid-file #:log-file #$log-file #:user (passwd:uid (getpwnam "squid")) - )) + ))) (actions (list (shepherd-action (name 'reload) (documentation "Reload the settings file from disk.") - (procedure #~(exec-command + (procedure #~(lambda _ (exec-command (list #$(file-append squid "/sbin/squid") "-d" #$loglevel @@ -85,12 +85,12 @@ #:pid-file #$pid-file #:log-file #$log-file #:user (passwd:uid (getpwnam "squid")) - )) + ))) ) (shepherd-action (name 'check-config) (documentation "Check the settings file from disk.") - (procedure #~(exec-command + (procedure #~(lambda _ (exec-command (list #$(file-append squid "/sbin/squid") "-d" #$loglevel @@ -101,12 +101,12 @@ #:pid-file #$pid-file #:log-file #$log-file #:user (passwd:uid (getpwnam "squid")) - )) + ))) ) (shepherd-action (name 'kill) (documentation "Ultimatly kill the squid process.") - (procedure #~(exec-command + (procedure #~(lambda _ (exec-command (list #$(file-append squid "/sbin/squid") "-d" #$loglevel @@ -117,7 +117,7 @@ #:pid-file #$pid-file #:log-file #$log-file #:user (passwd:uid (getpwnam "squid")) - )) + ))) ) )) )