gnu: leocad: Update phase style.

* gnu/packages/lego.scm (leocad)[arguments]: Substitute INVOKE for
SYSTEM* and end all phases with an explicit #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-03-20 06:14:28 +01:00
parent b5df3e266b
commit 84775d65a8
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -84,7 +84,7 @@ (define-public leocad
"189wj221fn08bnsfwy8050bxkjgjwinkn19qdcvb6c2ry2lnfra9"))))
(build-system gnu-build-system)
(native-inputs
`(("qttools" ,qttools))) ;for lrelease
`(("qttools" ,qttools))) ; for lrelease
(inputs
`(("mesa" ,mesa)
("qtbase" ,qtbase)
@ -96,12 +96,13 @@ (define-public leocad
(replace 'configure
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(zero? (system* "qmake"
(string-append "INSTALL_PREFIX=" out)
;; Otherwise looks for lrelease-qt4
"QMAKE_LRELEASE=lrelease"
;; Don't pester users about updates
"DISABLE_UPDATE_CHECK=1")))))
(invoke "qmake"
(string-append "INSTALL_PREFIX=" out)
;; Otherwise looks for lrelease-qt4.
"QMAKE_LRELEASE=lrelease"
;; Don't pester users about updates.
"DISABLE_UPDATE_CHECK=1")
#t)))
(add-after 'configure 'reset-resource-timestamps
(lambda _
;; The contents of build/release/.qrc/qrc_leocad.cpp generated by
@ -114,7 +115,8 @@ (define-public leocad
(src (string-append base ".ts"))
(st (stat src)))
(set-file-time file st)))
(find-files "." "leocad_.*\\.qm"))))))))
(find-files "." "leocad_.*\\.qm")))
#t)))))
(home-page "http://www.leocad.org")
(synopsis "Create virtual Lego models")
(description