[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
45/80: installer: Replace an instance of cdr with match.
From: |
John Darrington |
Subject: |
45/80: installer: Replace an instance of cdr with match. |
Date: |
Tue, 3 Jan 2017 15:49:44 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit d2fcd7c34aa60659a30e2b0f11d7c7a9d77becb1
Author: John Darrington <address@hidden>
Date: Tue Dec 27 07:58:31 2016 +0100
installer: Replace an instance of cdr with match.
* gnu/system/installer/wireless.scm (scan-wifi): Use match instead of cdr.
---
gnu/system/installer/wireless.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/wireless.scm
b/gnu/system/installer/wireless.scm
index 3eeb532..5e04acf 100644
--- a/gnu/system/installer/wireless.scm
+++ b/gnu/system/installer/wireless.scm
@@ -174,7 +174,9 @@ network={
"" s))
(define (scan-wifi ifce)
- (cdr (slurp (string-append "iwlist " ifce " scan") string-trim-both)))
+ (match (slurp (string-append "iwlist " ifce " scan") string-trim-both)
+ (#f '())
+ ((_ . lines) lines))) ;; Ignore the first line
(define (drop-prefix pfx s)
"Drop PFX from S if it is the first string"
- 41/80: install: Define new procedure pipe-cmd and use it to implement window-pipe., (continued)
- 41/80: install: Define new procedure pipe-cmd and use it to implement window-pipe., John Darrington, 2017/01/03
- 40/80: installer: Ensure that all mount-points have a file system., John Darrington, 2017/01/03
- 42/80: installer: Correct bugs generating the configuration., John Darrington, 2017/01/03
- 47/80: installer: Turn off kernel ring messages to console., John Darrington, 2017/01/03
- 39/80: installer: New predicate valid-hostname?, John Darrington, 2017/01/03
- 48/80: installer: Enable scrolling in the installation window., John Darrington, 2017/01/03
- 46/80: installer: Add inetutils bin directory to PATH., John Darrington, 2017/01/03
- 33/80: installer: Write the configuration to a temporary file., John Darrington, 2017/01/03
- 61/80: installer: Change the order of the filesystem task conditions., John Darrington, 2017/01/03
- 43/80: gnu: Add guix to the path environment for the guix-installer service., John Darrington, 2017/01/03
- 45/80: installer: Replace an instance of cdr with match.,
John Darrington <=
- 32/80: installer: Add a task to actually call guix system init., John Darrington, 2017/01/03
- 38/80: installer: Replace some instances of "car"., John Darrington, 2017/01/03
- 26/80: installer: Add a new menu to configure wireless interfaces., John Darrington, 2017/01/03
- 59/80: installer: Prevent the user specifying the same mount point twice., John Darrington, 2017/01/03
- 57/80: installer: Issue message to user on failure of filesystems task., John Darrington, 2017/01/03
- 64/80: installer: Add a console-keymap service., John Darrington, 2017/01/03
- 71/80: installer: Make setting up of the network a prerequisite., John Darrington, 2017/01/03
- 55/80: installer: Close unused ports in pipe-cmd., John Darrington, 2017/01/03
- 72/80: installer: Ensure that all mount points are absolute paths., John Darrington, 2017/01/03
- 70/80: installer: Change essid --> wireless., John Darrington, 2017/01/03