gnu: tgl: Remove -Werror.

* gnu/packages/telegram.scm (tgl)[arguments]: Add phase to remove "-Werror".

Change-Id: I0e93b41ed6bae4b74fc12bdeddd3019a8b0e6bd5
This commit is contained in:
Ricardo Wurmus 2024-03-08 23:55:09 +01:00
parent 09346fd05f
commit bd30691681
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC

View File

@ -4,6 +4,7 @@
;;; Copyright © 2023 Saku Laesvuori <saku@laesvuori.fi> ;;; Copyright © 2023 Saku Laesvuori <saku@laesvuori.fi>
;;; Copyright © 2023 Lu Hui <luhux76@gmail.com> ;;; Copyright © 2023 Lu Hui <luhux76@gmail.com>
;;; Copyright © 2023 Camilo Q.S. (Distopico) <distopico@riseup.net> ;;; Copyright © 2023 Camilo Q.S. (Distopico) <distopico@riseup.net>
;;; Copyright © 2024 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -613,47 +614,50 @@ formerly a part of telegram-cli, but now being maintained separately.")
(base32 "0cf5s7ygslb5klg1qv9qdc3hivhspmvh3zkacyyhd2yyikb5p0f9")))) (base32 "0cf5s7ygslb5klg1qv9qdc3hivhspmvh3zkacyyhd2yyikb5p0f9"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; No target (list
#:tests? #f ; No target
#:imported-modules #:imported-modules
((guix build copy-build-system) `((guix build copy-build-system)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:modules #:modules
(((guix build copy-build-system) '(((guix build copy-build-system)
#:prefix copy:) #:prefix copy:)
(guix build gnu-build-system) (guix build gnu-build-system)
(guix build utils)) (guix build utils))
#:configure-flags #:configure-flags
(list '(list
;; Use gcrypt instead of openssl. ;; Use gcrypt instead of openssl.
"--disable-openssl" "--disable-openssl"
;; Enable extended queries system. ;; Enable extended queries system.
"--enable-extf" "--enable-extf"
;; Include libevent-based net and timers. ;; Include libevent-based net and timers.
"--enable-libevent") "--enable-libevent")
#:phases #:phases
(modify-phases %standard-phases '(modify-phases %standard-phases
(add-after 'unpack 'trigger-bootstrap (add-after 'unpack 'trigger-bootstrap
(lambda _ (lambda _
(delete-file "configure") (delete-file "configure")))
#t)) (add-after 'trigger-bootstrap 'patch-tl-parser
(add-after 'trigger-bootstrap 'patch-tl-parser (lambda _
(lambda _ (delete-file "Makefile.tl-parser")
(delete-file "Makefile.tl-parser") (substitute* "Makefile.in"
(substitute* "Makefile.in" (("include \\$\\{srcdir\\}/Makefile\\.tl-parser")
(("include \\$\\{srcdir\\}/Makefile\\.tl-parser") "")
"") (("\\$\\{EXE\\}/tl-parser")
(("\\$\\{EXE\\}/tl-parser") "tl-parser"))))
"tl-parser")) (add-after 'unpack 'remove-Werror
#t)) (lambda _
(replace 'install (substitute* "Makefile.in"
(lambda args (("-Werror") ""))))
(apply (assoc-ref copy:%standard-phases 'install) (replace 'install
#:install-plan (lambda args
'(("bin" "bin") (apply (assoc-ref copy:%standard-phases 'install)
("." "include/tgl" #:install-plan
#:include-regexp ("\\.h$")) '(("bin" "bin")
("libs" "lib/tgl")) ("." "include/tgl"
args)))))) #:include-regexp ("\\.h$"))
("libs" "lib/tgl"))
args))))))
(native-inputs (native-inputs
(list autoconf automake libtool pkg-config)) (list autoconf automake libtool pkg-config))
(inputs (inputs