[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: gnu: qtimageformats: Use 'lambda' for substitutes.
From: |
Efraim Flashner |
Subject: |
01/03: gnu: qtimageformats: Use 'lambda' for substitutes. |
Date: |
Sat, 4 Jun 2016 22:39:16 +0000 (UTC) |
efraim pushed a commit to branch wip-qt
in repository guix.
commit 07ae27cb7830073b712a6b4a71f56a856c2a78c2
Author: Efraim Flashner <address@hidden>
Date: Sun Jun 5 00:42:16 2016 +0300
gnu: qtimageformats: Use 'lambda' for substitutes.
* gnu/packages/qt.scm (qtimageformats)[arguments]: Use 'lambda' in place
of a long substitute list.
---
gnu/packages/qt.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index cb9be47..34eca45 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -497,15 +497,13 @@ developers using C++ or QML, a CSS & JavaScript like
language.")
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(qtbase (assoc-ref inputs "qtbase")))
- (substitute* '("src/plugins/imageformats/tiff/Makefile"
- "src/plugins/imageformats/wbmp/Makefile"
- "src/plugins/imageformats/dds/Makefile"
- "src/plugins/imageformats/tga/Makefile"
- "src/plugins/imageformats/webp/Makefile"
- "src/plugins/imageformats/icns/Makefile"
- "src/plugins/imageformats/mng/Makefile")
- (((string-append "INSTALL_ROOT)" qtbase))
- (string-append "INSTALL_ROOT)" out)))))))))))
+ (for-each
+ (lambda (format)
+ (substitute* (string-append "src/plugins/imageformats/"
+ format "/Makefile")
+ (((string-append "INSTALL_ROOT)" qtbase))
+ (string-append "INSTALL_ROOT)" out))))
+ '("tiff" "wbmp" "dds" "tga" "webp" "icns" "mng"))))))))))
(define-public qjson
(package