(define-module (gnu services nfs)
  #:use-module (gnu)
  #:use-module (gnu services shepherd)
  #:use-module (gnu packages onc-rpc)
  #:use-module (guix)
  #:export (rpc-service))

(define (rpc-shepherd-service config) ; Config is ignored
  (list (shepherd-service
         (provision '(rpc-daemon))
         (requirement '(networking))
         (start #~(make-forkexec-constructor
                   (list (string-append #$rpcbind "/bin/rpcbind") "-d" "-f")))
         (stop #~(make-kill-destructor)))))

(define rpc-service-type
  (service-type
   (name 'rpc)
   (extensions (list (service-extension shepherd-root-service-type
                                        rpc-shepherd-service)))))

(define* (rpc-service config)
  "Run the rpc daemon. Config is ignored."
  (service rpc-service-type config))