02/02: gnu: tipp10: Adjust phases.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 7cc98473241c927a726454f31e3cd98c5742a12f
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Jan 15 12:16:49 2017 +0100

    gnu: tipp10: Adjust phases.
    
    * gnu/packages/education.scm (tipp10)[arguments]: Return #t for
    "disable-new-version-check"; fix indentation.
---
 gnu/packages/education.scm |   31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/education.scm b/gnu/packages/education.scm
index 69f5a51..5444579 100644
--- a/gnu/packages/education.scm
+++ b/gnu/packages/education.scm
@@ -161,22 +161,23 @@ of categories with some of the activities available in 
that category.
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'disable-new-version-check
-          (lambda _
-            ;; Make new version check to default to false.
-            ;; TODO: Remove the checkbox from the dialog and the check itself
-            (substitute* '("widget/settingspages.cpp" "widget/mainwindow.cpp")
-              (("settings.value(\"check_new_version\", true)")
-               "settings.value(\"check_new_version\", false)"))))
+           (lambda _
+             ;; Make new version check to default to false.
+             ;; TODO: Remove the checkbox from the dialog and the check itself
+             (substitute* '("widget/settingspages.cpp" "widget/mainwindow.cpp")
+               (("settings.value(\"check_new_version\", true)")
+                "settings.value(\"check_new_version\", false)"))
+             #t))
          (replace 'configure
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let ((out (assoc-ref outputs "out")))
-              ;; Make program honor $PREFIX
-              (substitute* "tipp10.pro"
-                (("\\.path = /usr/") (string-append ".path = " out "/")))
-              (substitute* "def/defines.h"
-                (("\"/usr/") (string-append "\"" out "/")))
-              ;; Recreate Makefile
-              (zero? (system* "qmake"))))))))
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               ;; Make program honor $PREFIX
+               (substitute* "tipp10.pro"
+                 (("\\.path = /usr/") (string-append ".path = " out "/")))
+               (substitute* "def/defines.h"
+                 (("\"/usr/") (string-append "\"" out "/")))
+               ;; Recreate Makefile
+               (zero? (system* "qmake"))))))))
     (inputs
      `(("qt4" ,qt-4)
        ("sqlite" ,sqlite)))