diff options
Diffstat (limited to 'whispers/services/whispers/finance.scm')
| -rw-r--r-- | whispers/services/whispers/finance.scm | 57 |
1 files changed, 29 insertions, 28 deletions
diff --git a/whispers/services/whispers/finance.scm b/whispers/services/whispers/finance.scm index 1ce7e5b..1c1fb0e 100644 --- a/whispers/services/whispers/finance.scm +++ b/whispers/services/whispers/finance.scm @@ -224,31 +224,31 @@ used by the bitcoin node daemon.") (procedure #~(lambda (running) (unless (not #$bitcoin?) - (action '#$user-sym - 'make-directory - #$(log-folder user-str) - #$user - #$group - #$(number->string #o755 8)) - (action '#$user-sym - 'make-tmpfs - #$(pid-folder user) - #$user - #$group - #$(number->string #o755 8))) + (perform-service-action (lookup-service '#$user-sym) + 'make-directory + #$(log-folder user-str) + #$user + #$group + #$(number->string #o755 8)) + (perform-service-action (lookup-service '#$user-sym) + 'make-tmpfs + #$(pid-folder user) + #$user + #$group + #$(number->string #o755 8))) (unless (not #$monero?) - (action '#$user-sym - 'make-directory - #$(rightwing-log-folder user-str) - #$user - #$group - #$(number->string #o755 8)) - (action '#$user-sym - 'make-tmpfs - #$(rightwing-pid-folder user) - #$user - #$group - #$(number->string #o755 8)))))) + (perform-service-action (lookup-service '#$user-sym) + 'make-directory + #$(rightwing-log-folder user-str) + #$user + #$group + #$(number->string #o755 8)) + (perform-service-action (lookup-service '#$user-sym) + 'make-tmpfs + #$(rightwing-pid-folder user) + #$user + #$group + #$(number->string #o755 8)))))) (shepherd-action (name 'post-stop) (documentation "Unmount the tmpfs mounts used by the bitcoin @@ -256,13 +256,14 @@ node daemon.") (procedure #~(lambda (running) (unless (not #$bitcoin?) - (action '#$user-sym + (perform-service-action (lookup-service '#$user-sym) 'clear-tmpfs #$(pid-folder user))) (unless (not #$monero?) - (action '#$user-sym - 'clear-tmpfs - #$(rightwing-pid-folder user))))))))) + (perform-service-action (lookup-service '#$user-sym) + 'clear-tmpfs + #$(rightwing-pid-folder + user))))))))) (define (node-lieutenants user nodes) "Returns a list of zero to two crypto node guix shepherd services |