[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] gnu: Add rpc-daemon service
From: |
John Darrington |
Subject: |
[PATCH] gnu: Add rpc-daemon service |
Date: |
Sat, 3 Sep 2016 08:39:42 +0200 |
* gnu/services/nfs: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
---
gnu/local.mk | 1 +
gnu/services/nfs.scm | 25 +++++++++++++++++++++++++
2 files changed, 26 insertions(+)
create mode 100644 gnu/services/nfs.scm
diff --git a/gnu/local.mk b/gnu/local.mk
index efb00b9..8d2de1d 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -388,6 +388,7 @@ GNU_SYSTEM_MODULES = \
%D%/services/mail.scm \
%D%/services/mcron.scm \
%D%/services/networking.scm \
+ %D%/services/nfs.scm \
%D%/services/shepherd.scm \
%D%/services/herd.scm \
%D%/services/spice.scm \
diff --git a/gnu/services/nfs.scm b/gnu/services/nfs.scm
new file mode 100644
index 0000000..2ff5a36
--- /dev/null
+++ b/gnu/services/nfs.scm
@@ -0,0 +1,25 @@
+(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))
+
--
2.1.4
- [PATCH] gnu: Add rpc-daemon service,
John Darrington <=