me
/
guix
Archived
1
0
Fork 0
Code

gnu: telegram-desktop: Delete trailing #t. 

* gnu/packages/telegram.scm (telegram-desktop)[source]: Delete
trailing #t.
[arguments]<#:phases>: Likewise.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
master
Hilton Chain 2022-09-20 23:34:51 +08:00 committed by Liliana Marie Prikler
parent 5ca7ec92f5
commit 425e4f6fcd
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/telegram.scm
View File

@ -292,8 +292,7 @@ Telegram project, for its use in telegram desktop client.")
(for-each delete-file-recursively (for-each delete-file-recursively
(lset-difference string=? (lset-difference string=?
(scandir ".") (scandir ".")
(cons* "." ".." keep)))) (cons* "." ".." keep)))))))))
#t)))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
`(#:tests? #f ; No target `(#:tests? #f ; No target
@ -322,8 +321,7 @@ Telegram project, for its use in telegram desktop client.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'make-writable (add-after 'unpack 'make-writable
(lambda _ (lambda _
(for-each make-file-writable (find-files ".")) (for-each make-file-writable (find-files "."))))
#t))
(add-after 'make-writable 'copy-inputs (add-after 'make-writable 'copy-inputs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(for-each (for-each
@ -350,14 +348,10 @@ Telegram project, for its use in telegram desktop client.")
("Telegram/lib_waylandshells" ,(assoc-ref inputs "lib-waylandshells-source")) ("Telegram/lib_waylandshells" ,(assoc-ref inputs "lib-waylandshells-source"))
("Telegram/lib_webrtc" ,(assoc-ref inputs "lib-webrtc-source")) ("Telegram/lib_webrtc" ,(assoc-ref inputs "lib-webrtc-source"))
("Telegram/lib_webview" ,(assoc-ref inputs "lib-webview-source")) ("Telegram/lib_webview" ,(assoc-ref inputs "lib-webview-source"))
("Telegram/ThirdParty/tgcalls" ("Telegram/ThirdParty/tgcalls" ,(assoc-ref inputs "tgcalls-source"))))))
,(assoc-ref inputs "tgcalls-source"))))
#t))
(add-before 'configure 'patch-cxx-flags (add-before 'configure 'patch-cxx-flags
(lambda _ (lambda _
(substitute* "cmake/options_linux.cmake" (substitute* "cmake/options_linux.cmake" (("class-memaccess") "all"))))
(("class-memaccess") "all"))
#t))
(add-after 'install 'glib-or-gtk-compile-schemas (add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap