aboutsummaryrefslogtreecommitdiff
path: root/gn/services
diff options
context:
space:
mode:
authorEfraim Flashner2023-09-06 14:49:41 +0300
committerEfraim Flashner2023-09-19 12:59:33 +0300
commit3a54f09147e56d8f0cc8f9c1ff94712de78137a9 (patch)
tree97cf59db01b372112bdad35448bcab31b16bdb96 /gn/services
parent382df9849ed64d6ef2ea6ecafbfb090ad49928eb (diff)
downloadguix-bioinformatics-3a54f09147e56d8f0cc8f9c1ff94712de78137a9.tar.gz
Update pluto server
Diffstat (limited to 'gn/services')
-rw-r--r--gn/services/pluto.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/gn/services/pluto.scm b/gn/services/pluto.scm
index 720b769..64e82ac 100644
--- a/gn/services/pluto.scm
+++ b/gn/services/pluto.scm
@@ -43,9 +43,11 @@
(requirement '(networking))
(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"))
+ ;(list #$(file-append package "/runpluto"))
+ (list #$(file-append package "/runsliderservice"))
#:log-file "/var/log/pluto.log"
#:user "julia"
#:group "julia"
@@ -58,6 +60,16 @@
(file-system-mapping
(source "/etc/ssl")
(target source)))))
+ (start #~(make-forkexec-constructor
+ ;(list #$(file-append package "/runpluto.sh") #$port)
+ ;(list #$(file-append package "/runpluto"))
+ '(#$(file-append package "/runsliderservice"))
+ #:log-file "/var/log/pluto.log"
+ #:user "julia"
+ #:group "julia"
+ ;; This prevents the service from using /root as $HOME.
+ ;#:environment-variables '()
+ ))
(stop #~(make-kill-destructor))))))))
(define pluto-service-type