From c6e99f78f0f8c9d4da11162acd55ec73c8625641 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Fri, 26 Nov 2021 22:22:08 +0100
Subject: gnu: kcov: Prepare for cross-compilation.

* gnu/packages/code.scm (kcov)[arguments]: Look up bash in the inputs.
---
 gnu/packages/code.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm
index 8804173a14..29479cae54 100644
--- a/gnu/packages/code.scm
+++ b/gnu/packages/code.scm
@@ -588,10 +588,11 @@ results and determine build stability.")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'fix-/bin/bash-references
-           (lambda _
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((bash (assoc-ref inputs "bash")))
              (substitute* (find-files "src" ".*\\.cc?$")
-               (("/bin/bash") (which "bash"))
-               (("/bin/sh") (which "sh"))))))))
+               (("/bin/(bash|sh)" shell)
+                (string-append (assoc-ref inputs "bash") shell)))))))))
     (inputs
      `(("curl" ,curl)
        ("elfutils" ,elfutils)
-- 
cgit 1.4.1