hans/rkt-web-player
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

create-player-agent-service-file - issues resolved

Browse Source
This commit is contained in:
Hans Dijkema
2026-10-04 23:32:20 +02:00
parent ae92d284ce
commit 348fe07b48
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
player-agent-cli.rkt
+3 -3
View File
@@ -131,9 +131,9 @@
(define (create-player-agent-service-file url filename) (define (create-player-agent-service-file url filename)
(let ((fh (open-output-file filename #:exists? 'replace))) (let ((fh (open-output-file filename #:exists 'replace)))
(for-each (lambda (l) (for-each (lambda (l)
(displayln l out)) (displayln l fh))
(list (list
"[Unit]" "[Unit]"
"Description=Racket Web Player Agent" "Description=Racket Web Player Agent"
@@ -150,7 +150,7 @@
"ExecStart=/usr/local/bin/racket " "ExecStart=/usr/local/bin/racket "
"-e " "-e "
"\"(require rkt-web-player/player-agent-cli) " "\"(require rkt-web-player/player-agent-cli) "
"(run-player-agent-cli #:server-url \\\"" url "\\\" #:name " (gethostname) ")\"" "(run-player-agent-cli #:server-url \\\"" url "\\\" #:name \\\"" (gethostname) "\\\")\""
) )
"" ""
"Restart=on-failure" "Restart=on-failure"