stdin

stdin.scm

(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)))