amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

mapped-devices: 'mapped-device-service' takes a <mapped-device>.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2016-04-17 18:26:50 +02:00
parent 1ea507bce2
commit 4da8c19e83
2 changed files with 8 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

10
gnu/system.scm
View file

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