aboutsummaryrefslogtreecommitdiff
# This is a "service unit file" for the systemd init system to launch
# 'guix-daemon'.  Drop it in /etc/systemd/system or similar to have
# 'guix-daemon' automatically started.

[Unit]
Description=Build daemon for GNU Guix

[Service]
ExecStart=@localstatedir@/guix/profiles/per-user/root/current-guix/bin/guix-daemon \
    --build-users-group=guixbuild --discover=no \
    --substitute-urls='@GUIX_SUBSTITUTE_URLS@'
Environment='GUIX_LOCPATH=@localstatedir@/guix/profiles/per-user/root/guix-profile/lib/locale' LC_ALL=en_US.utf8
StandardOutput=journal
StandardError=journal

# Work around a nasty systemd ‘feature’ that kills the entire process tree
# (including the daemon!) if any child, such as cc1plus, runs out of memory.
OOMPolicy=continue

# Despite the name, this is rate-limited: a broken daemon will eventually fail.
Restart=always

# See <https://lists.gnu.org/archive/html/guix-devel/2016-04/msg00608.html>.
# Some package builds (for example, go@1.8.1) may require even more than
# 1024 tasks.
TasksMax=8192

[Install]
WantedBy=multi-user.target
ole-configuration hurd-console-configuration? (hurd hurd-console-configuration-hurd ;file-like (default hurd))) (define (hurd-console-shepherd-service config) "Return a <shepherd-service> for a Hurd VGA console with CONFIG." (define console-command #~(list (string-append #$(hurd-console-configuration-hurd config) "/bin/console") "-c" "/dev/vcs" "-d" "vga" "-d" "pc_kbd" "-d" "generic_speaker")) (list (shepherd-service (documentation "Run the Hurd’s VGA console client.") (provision '(console)) (requirement '(user-processes)) (start #~(make-forkexec-constructor #$console-command)) (stop #~(make-kill-destructor))))) (define hurd-console-service-type (service-type (name 'console) (description "Run the Hurd console client.") (extensions (list (service-extension shepherd-root-service-type hurd-console-shepherd-service))) (default-value (hurd-console-configuration)))) ;;; ;;; The Hurd getty service. ;;; (define-record-type* <hurd-getty-configuration> hurd-getty-configuration make-hurd-getty-configuration hurd-getty-configuration? (hurd hurd-getty-configuration-hurd ;file-like (default hurd)) (tty hurd-getty-configuration-tty) ;string (baud-rate hurd-getty-configuration-baud-rate (default 38400))) ;integer (define (hurd-getty-shepherd-service config) "Return a <shepherd-service> for a Hurd getty with CONFIG." (let ((hurd (hurd-getty-configuration-hurd config)) (tty (hurd-getty-configuration-tty config)) (baud-rate (hurd-getty-configuration-baud-rate config))) (define getty-command #~(list (string-append #$hurd "/libexec/getty") #$(number->string baud-rate) #$tty)) (list (shepherd-service (documentation "Run getty on a tty.") (provision (list (string->symbol (string-append "term-" tty)))) (requirement '(user-processes console)) (start #~(make-forkexec-constructor #$getty-command)) (stop #~(make-kill-destructor)))))) (define hurd-getty-service-type (service-type (name 'getty) (extensions (list (service-extension shepherd-root-service-type hurd-getty-shepherd-service))) (description "Provide console login using the Hurd @command{getty} program."))) ;;; hurd.scm ends here