mapped-devices: Make RAID device opening message clearer.
* gnu/system/mapped-devices.scm (open-raid-device): Rename 'source' to 'sources'. Make 'waiting' message more informative. (close-raid-device): Rename 'source' to 'sources'.
This commit is contained in:
parent
dfe06f6e7f
commit
7f8ad82bf2
|
@ -128,20 +128,24 @@
|
||||||
(open open-luks-device)
|
(open open-luks-device)
|
||||||
(close close-luks-device)))
|
(close close-luks-device)))
|
||||||
|
|
||||||
(define (open-raid-device source target)
|
(define (open-raid-device sources target)
|
||||||
"Return a gexp that assembles SOURCE (a list of devices) to the RAID device
|
"Return a gexp that assembles SOURCES (a list of devices) to the RAID device
|
||||||
TARGET, using 'mdadm'."
|
TARGET (e.g., \"/dev/md0\"), using 'mdadm'."
|
||||||
#~(let ((every (@ (srfi srfi-1) every)))
|
#~(begin
|
||||||
|
(use-modules (srfi srfi-1) (ice-9 format))
|
||||||
|
|
||||||
|
(let ((sources '#$sources))
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(unless (every file-exists? '#$source)
|
(unless (every file-exists? sources)
|
||||||
(format #t "waiting a bit...~%")
|
(format #t "waiting for RAID source devices~{ ~a~}...~%"
|
||||||
|
sources)
|
||||||
(sleep 1)
|
(sleep 1)
|
||||||
(loop)))
|
(loop)))
|
||||||
(zero? (system* (string-append #$mdadm "/sbin/mdadm")
|
|
||||||
"--assemble" #$target
|
|
||||||
#$@source))))
|
|
||||||
|
|
||||||
(define (close-raid-device source target)
|
(zero? (system* (string-append #$mdadm "/sbin/mdadm")
|
||||||
|
"--assemble" #$target sources)))))
|
||||||
|
|
||||||
|
(define (close-raid-device sources target)
|
||||||
"Return a gexp that stops the RAID device TARGET."
|
"Return a gexp that stops the RAID device TARGET."
|
||||||
#~(zero? (system* (string-append #$mdadm "/sbin/mdadm")
|
#~(zero? (system* (string-append #$mdadm "/sbin/mdadm")
|
||||||
"--stop" #$target)))
|
"--stop" #$target)))
|
||||||
|
|
Loading…
Reference in New Issue