From b3c8285127be2e49f1e5b7b79c14a1d3777d32bd Mon Sep 17 00:00:00 2001 From: Igor Goryachev Date: Tue, 2 Jul 2024 09:55:17 +0300 Subject: [PATCH] build-sysem/mix: Preserve code paths. * guix/build/mix-build-system.scm (build): Preserve code paths. Change-Id: Ia43e79385a536de98ae026893e1bda2a8416562c Signed-off-by: Andrew Tropin --- 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 +;;; Copyright © 2024 Igor Goryachev ;;; ;;; 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 . _)