me/guix
Archived
1
0
Fork 0
Code Activity

gnu: python-typer: Introduce gexps.

Browse source 
* gnu/packages/python-xyz.scm (python-typer)[arguments]: Switch to gexps.
[synopsis, description]: Fix indentation.
This commit is contained in:
Mathieu Othacehe 2022-08-12 10:35:32 +02:00
parent 3ceb985e75
commit 1385ef76d7
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 40 additions and 38 deletions

16
gnu/packages/python-xyz.scm
View file

@ -21526,33 +21526,35 @@ based on the CPython 2.7 and 3.7 parsers.")
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases ,#~(modify-phases %standard-phases
;; Unfortunately, this doesn't seem to be enough to fix these two ;; Unfortunately, this doesn't seem to be enough to fix these two
;; tests, but we'll patch this anyway. ;; tests, but we'll patch this anyway.
(add-after 'unpack 'patch-shell-reference (add-after 'unpack 'patch-shell-reference
(lambda _ (lambda _
(substitute* "tests/test_completion/test_completion.py" (substitute* "tests/test_completion/test_completion.py"
(("\"bash\"") (string-append "\"" (which "bash") "\"")) (("\"bash\"") (string-append "\"" (which "bash") "\""))
(("\"/bin/bash\"") (string-append "\"" (which "bash") "\""))))) (("\"/bin/bash\"")
(string-append "\"" (which "bash") "\"")))))
(replace 'build (replace 'build
(lambda _ (lambda _
(invoke "flit" "build"))) (invoke "flit" "build")))
(replace 'install (replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs) (add-installed-pythonpath inputs outputs)
(let ((out (assoc-ref outputs "out"))) (for-each
(for-each (lambda (wheel) (lambda (wheel)
(format #true wheel) (format #true wheel)
(invoke "python" "-m" "pip" "install" (invoke "python" "-m" "pip" "install"
wheel (string-append "--prefix=" out))) wheel (string-append "--prefix=" #$output)))
(find-files "dist" "\\.whl$"))))) (find-files "dist" "\\.whl$"))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(setenv "HOME" "/tmp") ; some tests need it (setenv "HOME" "/tmp") ; some tests need it
;; This is for completion tests ;; This is for completion tests
(with-output-to-file "/tmp/.bashrc" (lambda _ (display "# dummy"))) (with-output-to-file "/tmp/.bashrc"
(lambda _ (display "# dummy")))
(setenv "GUIX_PYTHONPATH" (setenv "GUIX_PYTHONPATH"
(string-append (getcwd) ":" (string-append (getcwd) ":"