dannym pushed a commit to branch wip-installer-2
in repository guix.
commit e0ec70e42436a2f4396f33ed743a9a44157ff595
Author: John Darrington <[email protected]>
Date: Sun Dec 18 08:14:14 2016 +0100
installer: Use ice-9 match.
* gnu/system/installer/network.scm (interfaces): Use match instead of cadr.
---
gnu/system/installer/network.scm | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/gnu/system/installer/network.scm b/gnu/system/installer/network.scm
index ada4f28..1aa193b 100644
--- a/gnu/system/installer/network.scm
+++ b/gnu/system/installer/network.scm
@@ -37,11 +37,13 @@
(define interfaces (delete "lo"
- (slurp "ip -o link"
- (lambda (s)
- (string-trim-both
- (cadr (string-split s #\:))
- char-set:whitespace)))))
+ (slurp "ip -o link"
+ (lambda (s)
+ (match (string-split s #\:)
+ ((_ interface-name . _)
+ (string-trim-both
+ interface-name
+ char-set:whitespace)))))))
(define my-buttons `((continue ,(N_ "_Continue") #t)
(test ,(N_ "_Test") #t)))
