mapped-devices: Properly open RAID devices.

This fixes a type error introduced in
7f8ad82bf2, given that SOURCES is a list.

* gnu/system/mapped-devices.scm (open-raid-device): Add 'apply'
invocation.
This commit is contained in:
Ludovic Courtès 2016-10-04 19:48:51 +02:00
parent 8cecd22e4a
commit 6e52376d2e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions

View File

@ -150,8 +150,8 @@ TARGET (e.g., \"/dev/md0\"), using 'mdadm'."
(sleep 1) (sleep 1)
(loop (+ 1 attempts)))) (loop (+ 1 attempts))))
(zero? (system* (string-append #$mdadm "/sbin/mdadm") (zero? (apply system* (string-append #$mdadm "/sbin/mdadm")
"--assemble" #$target sources)))) "--assemble" #$target sources))))
(define (close-raid-device sources target) (define (close-raid-device sources target)
"Return a gexp that stops the RAID device TARGET." "Return a gexp that stops the RAID device TARGET."