summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--nonguix/multiarch-container.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/nonguix/multiarch-container.scm b/nonguix/multiarch-container.scm
index b333b71..e9243f0 100644
--- a/nonguix/multiarch-container.scm
+++ b/nonguix/multiarch-container.scm
@@ -330,6 +330,9 @@ in a sandboxed FHS environment."
330 ,@(exists-> (getenv "XAUTHORITY")) 330 ,@(exists-> (getenv "XAUTHORITY"))
331 #$@(ngc-shared container))) 331 #$@(ngc-shared container)))
332 (DEBUG (equal? (getenv "DEBUG") "1")) 332 (DEBUG (equal? (getenv "DEBUG") "1"))
333 (extra-shares (if (getenv "GUIX_SANDBOX_EXTRA_SHARES")
334 (string-split (getenv "GUIX_SANDBOX_EXTRA_SHARES") #\:)
335 #f))
333 (args (cdr (command-line))) 336 (args (cdr (command-line)))
334 (command (if DEBUG '() 337 (command (if DEBUG '()
335 `("--" ,run ,@args)))) 338 `("--" ,run ,@args))))
@@ -362,7 +365,9 @@ in a sandboxed FHS environment."
362 ,@(map add-path expose) 365 ,@(map add-path expose)
363 ,@(map (lambda (item) 366 ,@(map (lambda (item)
364 (add-path item #:writable? #t)) 367 (add-path item #:writable? #t))
365 share) 368 (if extra-shares
369 (append share extra-shares)
370 share))
366 "-m" ,manifest-file 371 "-m" ,manifest-file
367 ,@command)))))) 372 ,@command))))))
368 373