From 6e52376d2e6c9ef849bd46b2ee72b58ad30d1947 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 4 Oct 2016 19:48:51 +0200 Subject: 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. --- gnu/system/mapped-devices.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/system') 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 @@ (define (open-raid-device sources target) (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." -- cgit v1.2.3