abcdw pushed a commit to branch master
in repository guix.
commit b3c8285127be2e49f1e5b7b79c14a1d3777d32bd
Author: Igor Goryachev <[email protected]>
AuthorDate: Tue Jul 2 09:55:17 2024 +0300
build-sysem/mix: Preserve code paths.
* guix/build/mix-build-system.scm (build): Preserve code paths.
Change-Id: Ia43e79385a536de98ae026893e1bda2a8416562c
Signed-off-by: Andrew Tropin <[email protected]>
---
guix/build/mix-build-system.scm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/guix/build/mix-build-system.scm b/guix/build/mix-build-system.scm
index fe2e36d184..0b021da791 100644
--- a/guix/build/mix-build-system.scm
+++ b/guix/build/mix-build-system.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Pierre-Henry Fröhring <[email protected]>
+;;; Copyright © 2024 Igor Goryachev <[email protected]>
;;;
;;; 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."
(for-each (lambda (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))
(define* (check #:key (tests? #t) #:allow-other-keys)
"Test the Mix project."
(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?)))
(define* (remove-mix-dirs . _)
