diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-10-04 19:48:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-10-04 19:51:53 +0200 |
| commit | 6e52376d2e6c9ef849bd46b2ee72b58ad30d1947 (patch) | |
| tree | 9e101cbf205792d3657b077934432e7fea3abeac | |
| parent | 8cecd22e4aaef87a2421d8693f9cc894c8a31205 (diff) | |
| download | guix-6e52376d2e6c9ef849bd46b2ee72b58ad30d1947.tar guix-6e52376d2e6c9ef849bd46b2ee72b58ad30d1947.tar.gz | |
mapped-devices: Properly open RAID devices.
This fixes a type error introduced in
7f8ad82bf23b032ad6bd85bb1daa87cc83de509c, given that SOURCES is a list.
* gnu/system/mapped-devices.scm (open-raid-device): Add 'apply'
invocation.
| -rw-r--r-- | gnu/system/mapped-devices.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system/mapped-devices.scm b/gnu/system/mapped-devices.scm index 2ce35eaa07..2487638c52 100644 --- a/gnu/system/mapped-devices.scm +++ b/gnu/system/mapped-devices.scm @@ -150,8 +150,8 @@ TARGET (e.g., \"/dev/md0\"), using 'mdadm'." (sleep 1) (loop (+ 1 attempts)))) - (zero? (system* (string-append #$mdadm "/sbin/mdadm") - "--assemble" #$target sources)))) + (zero? (apply system* (string-append #$mdadm "/sbin/mdadm") + "--assemble" #$target sources)))) (define (close-raid-device sources target) "Return a gexp that stops the RAID device TARGET." |