01/02: hydra: berlin: Bind mount cache directories to external storage.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 7c6a918311a44c171116aa70402e43c1e72b3897
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Dec 29 09:30:01 2018 +0100

    hydra: berlin: Bind mount cache directories to external storage.
    
    * hydra/berlin.scm <file-systems>: Add bind mounts.
---
 hydra/berlin.scm | 42 ++++++++++++++++++++++++++++--------------
 1 file changed, 28 insertions(+), 14 deletions(-)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index 7b094cf..cac063b 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -99,20 +99,34 @@ Happy hacking!\n"))
                (terminal-inputs '(serial))
                (terminal-outputs '(serial))))
 
-  ;; The root file system resides on just a single disk, no RAID :-/
-  (file-systems (cons* (file-system
-                         (device (file-system-label "my-root"))
-                         (mount-point "/")
-                         (type "ext4"))
-                              ;; This is a large external storage array
-                              ;; connected via 2 HBA cards.  We only mount it
-                              ;; through one of the HBA cards.  We would need
-                              ;; to use multipathd otherwise.
-                              (file-system
-                                    (device (uuid 
"a6455b66-59d2-40bd-bddb-0c572bb62a2f"))
-                                    (mount-point "/gnu")
-                                    (type "ext4"))
-                       %base-file-systems))
+  (file-systems (cons*
+                 ;; The root file system resides on just a single
+                 ;; disk, no RAID :-/
+                 (file-system
+                   (device (file-system-label "my-root"))
+                   (mount-point "/")
+                   (type "ext4"))
+                 ;; This is a large external storage array
+                 ;; connected via 2 HBA cards.  We only mount it
+                 ;; through one of the HBA cards.  We would need
+                 ;; to use multipathd otherwise.
+                 (file-system
+                   (device (uuid "a6455b66-59d2-40bd-bddb-0c572bb62a2f"))
+                   (mount-point "/gnu")
+                   (type "ext4"))
+                 ;; Bind mount cache to large external storage.
+                 (file-system
+                   (device "/gnu/cache")
+                   (mount-point "/var/cache")
+                   (flags '(bind-mount))
+                   (type "none"))
+                 ;; Access root file system without bind mounts.
+                 (file-system
+                   (device "/")
+                   (mount-point "/mnt/root-fs")
+                   (flags '(bind-mount))
+                   (type "none"))
+                 %base-file-systems))
 
   ;; Local admin account for MDC maintenance.
   (users (cons (user-account