06/08: installer: Remove whitespace.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 14005a19a3118c3585a05f52599034e69cb83226
Author: John Darrington <address@hidden>
Date:   Mon Feb 6 20:07:57 2017 +0100

    installer: Remove whitespace.
    
    * gnu/system/installer/disks.scm,
    gnu/system/installer/hostname.scm,
    gnu/system/installer/key-map.scm,
    gnu/system/installer/mount-point.scm,
    gnu/system/installer/partition-reader.scm,
    gnu/system/installer/time-zone.scm,
     gnu/system/installer/utils.scm (remove whitespace at line endings).
---
 gnu/system/installer/disks.scm            | 2 +-
 gnu/system/installer/hostname.scm         | 8 ++++----
 gnu/system/installer/key-map.scm          | 4 ++--
 gnu/system/installer/mount-point.scm      | 8 ++++----
 gnu/system/installer/partition-reader.scm | 4 ++--
 gnu/system/installer/time-zone.scm        | 2 +-
 gnu/system/installer/utils.scm            | 4 ++--
 7 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/system/installer/disks.scm b/gnu/system/installer/disks.scm
index f28ae18..e5aef4e 100644
--- a/gnu/system/installer/disks.scm
+++ b/gnu/system/installer/disks.scm
@@ -125,7 +125,7 @@
                              4
                              (getmaxx (inner frame))
                              0 0 #:panel #f))
-                       
+
         (menu-window (derwin (inner frame)
                       (- (getmaxy (inner frame)) 3 (getmaxy text-window))
                        (getmaxx (inner frame))
diff --git a/gnu/system/installer/hostname.scm 
b/gnu/system/installer/hostname.scm
index 62809cb..957f108 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -123,17 +123,17 @@
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-       
+
         (text-window (derwin (inner pr) 5 (getmaxx (inner pr))
                              0 0 #:panel #f))
-       
+
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
                       (- (getmaxy (inner pr)) 3) 0
                       #:panel #f))
-       
+
         (nav (make-buttons my-buttons 1))
-       
+
         (fw (derwin (inner pr)
                     2
                     (getmaxx (inner pr))
diff --git a/gnu/system/installer/key-map.scm b/gnu/system/installer/key-map.scm
index f6d6304..63e14a8 100644
--- a/gnu/system/installer/key-map.scm
+++ b/gnu/system/installer/key-map.scm
@@ -107,7 +107,7 @@
                              (- (getmaxy (inner frame)) 3 (getmaxy 
text-window))
                              (getmaxx (inner frame))
                              (getmaxy text-window) 0 #:panel #f))
-       
+
         (menu (make-menu
                (let ((dir (page-datum p 'directory)))
                      (slurp (string-append "ls -1 "
@@ -128,5 +128,5 @@
     (refresh* text-window)
     (refresh* button-window)))
 
-                       
+
 
diff --git a/gnu/system/installer/mount-point.scm 
b/gnu/system/installer/mount-point.scm
index f288f01..391d809 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -97,17 +97,17 @@
              (- (getmaxy s) 4) (- (getmaxx s) 2)
              2 1
              #:title (page-title p)))
-       
+
         (text-window (derwin (inner pr) 3 (getmaxx (inner pr))
                              0 0 #:panel #t))
-       
+
         (bwin (derwin (inner pr)
                       3 (getmaxx (inner pr))
                       (- (getmaxy (inner pr)) 3) 0
                       #:panel #t))
-       
+
         (nav (make-buttons my-buttons 1))
-       
+
         (fw (derwin (inner pr)
                      (-
                       (getmaxy (inner pr))
diff --git a/gnu/system/installer/partition-reader.scm 
b/gnu/system/installer/partition-reader.scm
index 41d58ee..98dae46 100644
--- a/gnu/system/installer/partition-reader.scm
+++ b/gnu/system/installer/partition-reader.scm
@@ -31,11 +31,11 @@
            partition-name
 
            partition-volume-pairs
-       
+
            number->size
 
            find-partition
-       
+
             volumes)
 
   #:use-module (ice-9 rdelim)
diff --git a/gnu/system/installer/time-zone.scm 
b/gnu/system/installer/time-zone.scm
index 5c27bed..d4c3210 100644
--- a/gnu/system/installer/time-zone.scm
+++ b/gnu/system/installer/time-zone.scm
@@ -114,7 +114,7 @@
                              (- (getmaxy (inner frame)) 3 (getmaxy 
text-window))
                              (getmaxx (inner frame))
                              (getmaxy text-window) 0 #:panel #f))
-       
+
         (menu (make-menu
                (let nn ((ds (opendir (page-datum p 'directory)))
                         (ll '()))
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index ceedcec..a021eb3 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -33,7 +33,7 @@
            make-boxed-window
             inner
             outer
-       
+
            open-input-pipe-with-fallback
 
            find-mount-device
@@ -120,7 +120,7 @@ This version assumes some external entity puts in the 
carriage returns."
 
                                ((> (- width o) len)
                                 (string-append " " word))
-                               
+
                                (else
                                 (string-append (make-string (- width o) 
#\space) word)))))