aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-17 18:09:11 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-18 01:24:06 +0200
commit1ea507bce294d12223c35c3f8c2ae3e54a4127fd (patch)
treeeddb6e8eb5b0b451c39eb87695d6988add87ccda /gnu/services
parent374f14c265224048b065f2c177f80718b905201b (diff)
downloadguix-1ea507bce294d12223c35c3f8c2ae3e54a4127fd.tar
guix-1ea507bce294d12223c35c3f8c2ae3e54a4127fd.tar.gz
services: Move 'device-mapping-service' to (gnu system mapped-devices).
* gnu/services/base.scm (device-mapping-service-type) (device-mapping-service): Move to... * gnu/system/mapped-devices.scm (device-mapping-service-type): (device-mapping-service): ... here. New variables.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/base.scm21
1 files changed, 0 insertions, 21 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 6884101fd7..96bf8da02a 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -48,7 +48,6 @@
root-file-system-service
file-system-service
user-unmount-service
- device-mapping-service
swap-service
user-processes-service
session-environment-service
@@ -1175,26 +1174,6 @@ extra rules from the packages listed in @var{rules}."
(service udev-service-type
(udev-configuration (udev udev) (rules rules))))
-(define device-mapping-service-type
- (shepherd-service-type
- 'device-mapping
- (match-lambda
- ((target open close)
- (shepherd-service
- (provision (list (symbol-append 'device-mapping- (string->symbol target))))
- (requirement '(udev))
- (documentation "Map a device node using Linux's device mapper.")
- (start #~(lambda () #$open))
- (stop #~(lambda _ (not #$close)))
- (respawn? #f))))))
-
-(define (device-mapping-service target open close)
- "Return a service that maps device @var{target}, a string such as
-@code{\"home\"} (meaning @code{/dev/mapper/home}). Evaluate @var{open}, a
-gexp, to open it, and evaluate @var{close} to close it."
- (service device-mapping-service-type
- (list target open close)))
-
(define swap-service-type
(shepherd-service-type
'swap