diff --git a/glicid/services/networking.scm b/glicid/services/networking.scm index 992b353..e10e1b3 100644 --- a/glicid/services/networking.scm +++ b/glicid/services/networking.scm @@ -45,6 +45,8 @@ (start #~(make-forkexec-constructor (list #$(file-append squid "/sbin/squid") + "-d 1" + "--foreground" "-f" #$config-file ) #:pid-file #$pid-file @@ -53,6 +55,8 @@ (stop #~(exec-command (list #$(file-append squid "/sbin/squid") + "-d 1" + "--foreground" "-k" "shutdown" "-f" #$config-file ) @@ -66,6 +70,8 @@ (procedure #~(exec-command (list #$(file-append squid "/sbin/squid") + "-d 1" + "--foreground" "-k" "reconfigure" "-f" #$config-file ) @@ -82,10 +88,10 @@ (define %squid-activation (with-imported-modules '((guix build utils)) #~(begin + (use-modules (guix build utils)) (define (touch file-name) (call-with-output-file file-name (const #t)) ) - (use-modules (guix build utils)) (mkdir-p "/var/run/squid") (mkdir-p "/var/log/squid") (mkdir-p "/var/cache/squid")