summaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-17 18:26:50 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-18 01:24:06 +0200
commit4da8c19e8337cbb908d5e77cd912791846070fb7 (patch)
tree81786e610cba74823f345707a6c48ddfb719fa83 /gnu/system.scm
parent1ea507bce294d12223c35c3f8c2ae3e54a4127fd (diff)
downloadpatches-4da8c19e8337cbb908d5e77cd912791846070fb7.tar
patches-4da8c19e8337cbb908d5e77cd912791846070fb7.tar.gz
mapped-devices: 'mapped-device-service' takes a <mapped-device>.
* gnu/system/mapped-devices.scm (device-mapping-service): Take a <mapped-device> instead of 3 parameters. (device-mapping-service-type): Adjust accordingly. * gnu/system.scm (device-mapping-services): Adjust accordingly.
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm10
1 files changed, 1 insertions, 9 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index b1454b262d..768ca9cab2 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -233,15 +233,7 @@ from the initrd."
(define (device-mapping-services os)
"Return the list of device-mapping services for OS as a list."
- (map (lambda (md)
- (let* ((source (mapped-device-source md))
- (target (mapped-device-target md))
- (type (mapped-device-type md))
- (open (mapped-device-kind-open type))
- (close (mapped-device-kind-close type)))
- (device-mapping-service target
- (open source target)
- (close source target))))
+ (map device-mapping-service
(operating-system-user-mapped-devices os)))
(define (swap-services os)