Manually create laminar profile directory if it doesn't exist. HEAD main

1 files changed, 13 insertions, 0 deletions

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 12a22d1..035b18a 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -1002,6 +1002,19 @@ described by CONFIG, a <genenetwork-configuration> object."
       #~(begin
           (use-modules (guix build utils)
 		       (ice-9 ftw))
+	  ;; KLUDGE: Guix now stores inferior profiles under
+	  ;; /var/guix/profiles/per-user (commit
+	  ;; d12c4452a49b355369636de1dfc766b5bad6437b).  The 'laminar'
+	  ;; user’s directory is not created automatically in our
+	  ;; pinned Guix revision, which causes CI jobs using
+	  ;; inferiors to fail with permission errors.
+	  ;; XXXX: FIXME: Explicitly create the directory for
+	  ;; now. Remove this once we update the pinned Guix commit.
+	  (unless (file-exists? "/var/guix/profiles/per-user/laminar")
+	    (mkdir-p "/var/guix/profiles/per-user/laminar")
+	    (chown "/var/guix/profiles/per-user/laminar"
+		   (passwd:uid (getpw "laminar"))
+		   (passwd:gid (getpw "laminar"))))
 
           ;; Set ownership of files.
           (for-each (lambda (file)