doc: cookbook: Update example my-libgit2 package.

* doc/guix-cookbook.texi (Packaging Tutorial): Improve the code quality
of the example my-libgit2 package.
This commit is contained in:
Efraim Flashner 2023-06-05 20:09:06 +03:00
parent a025d8fee6
commit 5cf38fb6d6
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -844,12 +844,12 @@ another, more sophisticated package (slightly modified from the source):
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (gnu packages ssh)
#:use-module (gnu packages web)
#:use-module (gnu packages compression)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages compression)
#:use-module (gnu packages tls))
#:use-module (gnu packages ssh)
#:use-module (gnu packages tls)
#:use-module (gnu packages web))
(define-public my-libgit2
(let ((commit "e98d0a37c93574d2c6107bf7f31140b548c6a7bf")
@ -886,9 +886,11 @@ another, more sophisticated package (slightly modified from the source):
(("/bin/rm") (which "rm")))))
;; Run checks more verbosely.
(replace 'check
(lambda _ (invoke "./libgit2_clar" "-v" "-Q")))
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "./libgit2_clar" "-v" "-Q"))))
(add-after 'unpack 'make-files-writable-for-tests
(lambda _ (for-each make-file-writable (find-files "." ".*")))))))
(lambda _ (for-each make-file-writable (find-files ".")))))))
(inputs
(list libssh2 http-parser python-wrapper))
(native-inputs