aboutsummaryrefslogtreecommitdiff
path: root/gn/services/pluto.scm
diff options
context:
space:
mode:
authorShepherd on Tux022024-06-20 07:26:21 -0500
committerShepherd on Tux022024-06-20 07:26:21 -0500
commitf0f8dc84eca7088177797f84db05314537615c77 (patch)
tree5a7408a19c92b0c4d536916269425d883c4f06ca /gn/services/pluto.scm
parent951e77b10c84889f29c1f2322087c796cedb375a (diff)
parent48af9393cf186230e08b0fa6f7f443bc818408d2 (diff)
downloadguix-bioinformatics-f0f8dc84eca7088177797f84db05314537615c77.tar.gz
Merge branch 'master' of https://gitlab.com/genenetwork/guix-bioinformatics
Diffstat (limited to 'gn/services/pluto.scm')
-rw-r--r--gn/services/pluto.scm14
1 files changed, 11 insertions, 3 deletions
diff --git a/gn/services/pluto.scm b/gn/services/pluto.scm
index d137314..720b769 100644
--- a/gn/services/pluto.scm
+++ b/gn/services/pluto.scm
@@ -44,16 +44,20 @@
(modules '((gnu build shepherd)
(gnu system file-systems)))
(start #~(make-forkexec-constructor/container
- (list #$(file-append package "/runpluto.sh") #$port)
+ ;(list #$(file-append package "/runpluto.sh") #$port)
+ (list #$(file-append package "/runpluto"))
#:log-file "/var/log/pluto.log"
#:user "julia"
#:group "julia"
- ;; This needs to exist. Unclear why.
+ ;; This prevents the service from using /root as $HOME.
#:environment-variables '()
#:mappings (list (file-system-mapping
(source "/home/jovyan")
(target source)
- (writable? #t)))))
+ (writable? #t))
+ (file-system-mapping
+ (source "/etc/ssl")
+ (target source)))))
(stop #~(make-kill-destructor))))))))
(define pluto-service-type
@@ -86,6 +90,10 @@
;; No firmware for VMs.
(firmware '())
(packages (list nss-certs))
+ ;; For testing
+ ;(packages (cons* nss-certs %base-packages))
+
+ (setuid-programs '())
(services (list (service pluto-service-type
(pluto-configuration