From 85dbd3dcd00f294b6b9cc5214552799220a2465a Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 1 Dec 2014 22:12:23 +0100
Subject: build-system/glib-or-gtk: Clean up whitespace.

* guix/build/glib-or-gtk-build-system.scm: M-x whitespace-cleanup.
---
 guix/build/glib-or-gtk-build-system.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'guix/build')

diff --git a/guix/build/glib-or-gtk-build-system.scm b/guix/build/glib-or-gtk-build-system.scm
index 1d87a4cf27..bed7eb691a 100644
--- a/guix/build/glib-or-gtk-build-system.scm
+++ b/guix/build/glib-or-gtk-build-system.scm
@@ -36,14 +36,14 @@ (define (subdirectory-exists? parent sub-directory)
 
 (define (directory-included? directory directories-list)
   "Is DIRECTORY included in DIRECTORIES-LIST?"
-  (fold (lambda (s p) (or (string-ci=? s directory) p)) 
+  (fold (lambda (s p) (or (string-ci=? s directory) p))
         #f directories-list))
 
 (define (gtk-module-directories inputs)
   "Check for the existence of \"libdir/gtk-v.0\" in INPUTS.  Return a list
 with all found directories."
-  (let* ((version 
-          (if (string-match "gtk\\+-3" 
+  (let* ((version
+          (if (string-match "gtk\\+-3"
                             (or (assoc-ref inputs "gtk+")
                                 (assoc-ref inputs "source")
                                 "gtk+-3")) ; we default to version 3
@@ -54,7 +54,7 @@ (define (gtk-module-directories inputs)
             (let* ((in (match input
                          ((_ . dir) dir)
                          (_ "")))
-                   (libdir 
+                   (libdir
                     (string-append in "/lib/gtk-" version)))
               (if (and (directory-exists? libdir)
                        (not (directory-included? libdir prev)))
@@ -85,18 +85,18 @@ (define* (wrap-all-programs #:key inputs outputs #:allow-other-keys)
          (bindir (string-append out "/bin"))
          (bin-list (find-files bindir ".*"))
          (schemas (schemas-directories (acons "out" out inputs)))
-         (schemas-env-var 
+         (schemas-env-var
           (if (not (null? schemas))
               `("XDG_DATA_DIRS" ":" prefix ,schemas)
               #f))
          (gtk-mod-dirs (gtk-module-directories (acons "out" out inputs)))
-         (gtk-mod-env-var 
+         (gtk-mod-env-var
           (if (not (null? gtk-mod-dirs))
               `("GTK_PATH" ":" prefix ,gtk-mod-dirs)
               #f)))
     (cond
      ((and schemas-env-var gtk-mod-env-var)
-      (map (lambda (prog) 
+      (map (lambda (prog)
              (wrap-program prog schemas-env-var gtk-mod-env-var))
            bin-list))
      (schemas-env-var
@@ -110,16 +110,16 @@ (define* (compile-glib-schemas #:key inputs outputs #:allow-other-keys)
   (let* ((out (assoc-ref outputs "out"))
          (schemasdir (string-append out "/share/glib-2.0/schemas")))
     (if (and (directory-exists? schemasdir)
-             (not (file-exists? 
+             (not (file-exists?
                    (string-append schemasdir "/gschemas.compiled"))))
         (system* "glib-compile-schemas" schemasdir)
         #t)))
 
 (define %standard-phases
   (alist-cons-after
-   'install 'glib-or-gtk-wrap wrap-all-programs 
-   (alist-cons-after 
-    'install 'glib-or-gtk-compile-schemas compile-glib-schemas 
+   'install 'glib-or-gtk-wrap wrap-all-programs
+   (alist-cons-after
+    'install 'glib-or-gtk-compile-schemas compile-glib-schemas
     gnu:%standard-phases)))
 
 (define* (glib-or-gtk-build #:key inputs (phases %standard-phases)
-- 
cgit v1.2.3