me/guix
Archived
1
0
Fork 0
Code Activity

build-sysem/mix: Preserve code paths.

Browse source 
* guix/build/mix-build-system.scm (build): Preserve code paths.

Change-Id: Ia43e79385a536de98ae026893e1bda2a8416562c
Signed-off-by: Andrew Tropin <andrew@trop.in>
This commit is contained in:
Igor Goryachev 2024-07-02 09:55:17 +03:00 • committed by Andrew Tropin
parent d6e81e01d9
commit b3c8285127
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/build/mix-build-system.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Pierre-Henry Fröhring <contact@phfrohring.com> ;;; Copyright © 2023 Pierre-Henry Fröhring <contact@phfrohring.com>
;;; Copyright © 2024 Igor Goryachev <igor@goryachev.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -102,13 +103,17 @@ See: https://hexdocs.pm/mix/1.15.7/Mix.html#module-environment-variables"
"Builds the Mix project." "Builds the Mix project."
(for-each (lambda (mix-env) (for-each (lambda (mix-env)
(setenv "MIX_ENV" mix-env) (setenv "MIX_ENV" mix-env)
(invoke "mix" "compile" "--no-deps-check")) (invoke "mix" "compile" "--no-deps-check"
"--no-prune-code-paths"))
mix-environments)) mix-environments))
(define* (check #:key (tests? #t) #:allow-other-keys) (define* (check #:key (tests? #t) #:allow-other-keys)
"Test the Mix project." "Test the Mix project."
(if tests? (if tests?
(invoke "mix" "test" "--no-deps-check") (begin
(setenv "MIX_ENV" "test")
(invoke "mix" "do" "compile" "--no-deps-check" "--no-prune-code-paths" "+"
"test" "--no-deps-check"))
(format #t "tests? = ~a~%" tests?))) (format #t "tests? = ~a~%" tests?)))
(define* (remove-mix-dirs . _) (define* (remove-mix-dirs . _)