From 16ef26bbf0917a101c025702e3cf861e51ebff29 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Sun, 29 Dec 2019 04:05:17 -0600
Subject: gn: kubernetes: Patch reference to mount

---
 gn/packages/kubernetes.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'gn/packages/kubernetes.scm')

diff --git a/gn/packages/kubernetes.scm b/gn/packages/kubernetes.scm
index 01cde49..208cab4 100644
--- a/gn/packages/kubernetes.scm
+++ b/gn/packages/kubernetes.scm
@@ -8,6 +8,7 @@
   #:use-module (guix build-system trivial)
   #:use-module (gnu packages base)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages rsync))
 
 (define-public kubernetes
@@ -35,12 +36,18 @@
              (for-each make-file-writable (find-files "."))
              #t))
          (add-before 'build 'prepare-build
-           (lambda _
+           (lambda* (#:key inputs #:allow-other-keys)
              (with-directory-excursion "src/k8s.io/kubernetes"
                (substitute* '("build/root/Makefile"
                               "build/root/Makefile.generated_files"
                               "build/pause/Makefile")
-                 (("/bin/bash") (which "bash"))))
+                 (("/bin/bash") (which "bash")))
+               (substitute* "pkg/util/mount/mount.go"
+                 (("defaultMountCommand.*")
+                  (string-append "defaultMountCommand = \""
+                                 (assoc-ref inputs "util-linux")
+                                 "/bin/mount\"\n")))
+               )
              #t))
          (replace 'build
            (lambda _
@@ -87,7 +94,8 @@
     (native-inputs
      `(("which" ,which)))
     (inputs
-     `(("rsync" ,rsync)))
+     `(("rsync" ,rsync)
+       ("util-linux" ,util-linux)))
     (propagated-inputs
      `(("crictl" ,crictl))) ; Must be the same major+minor version as kubernetes.
     (home-page "https://kubernetes.io/")
-- 
cgit v1.2.3