Skip to content

Instantly share code, notes, and snippets.

/stdin.scm

Created Jul 27, 2017
Embed
What would you like to do?
stdin
(eval-when
(expand load eval)
(set! %load-path
(cons "/gnu/store/xjv05kaa67glf1i639b3bhkib746f9ag-module-import" %load-path))
(set! %load-compiled-path
(cons "/gnu/store/ya080134pjnk4jiw8j9g244rgrn8pfy9-module-import-compiled" %load-compiled-path)))
(begin
(use-modules
(shepherd service)
(oop goops)
(guix build utils)
(guix build syscalls))
(make <service> #:docstring
(quote "Run rsync daemon.") #:provides
(quote
(rsync)) #:requires
(quote
()) #:respawn?
(quote #t) #:start
(make-forkexec-constructor
(list
(string-append "/gnu/store/nfx98xdajm6fvnxhq8z3nmrzkb4421dl-rsync-3.1.2" "/bin/rsync")
"--daemon" "--config" "/gnu/store/azda58i64pcask8s9nvz19ly4msgz05y-rsync.conf")
#:pid-file "/var/run/rsyncd.pid"
(if
(< 1024 873)
(list #:user "rsyncd"))) #:stop
(make-kill-destructor)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.