Don't nead load-paths anymore
This commit is contained in:
parent
1977bafbb5
commit
8f38f6a1c1
@ -4,11 +4,8 @@ with lib;
|
|||||||
let
|
let
|
||||||
cfg = config.fudo.slynk;
|
cfg = config.fudo.slynk;
|
||||||
|
|
||||||
initScript = port: load-paths:
|
initScript = port:
|
||||||
let
|
pkgs.writeText "slynk.lisp" ''
|
||||||
load-path-string =
|
|
||||||
concatStringsSep " " (map (path: ''"${path}"'') load-paths);
|
|
||||||
in pkgs.writeText "slynk.lisp" ''
|
|
||||||
(asdf:load-system 'slynk)
|
(asdf:load-system 'slynk)
|
||||||
(slynk:create-server :port ${toString port} :dont-close t)
|
(slynk:create-server :port ${toString port} :dont-close t)
|
||||||
(loop (sleep 60))
|
(loop (sleep 60))
|
||||||
@ -41,7 +38,7 @@ in {
|
|||||||
description = "Slynk Common Lisp server.";
|
description = "Slynk Common Lisp server.";
|
||||||
|
|
||||||
serviceConfig = {
|
serviceConfig = {
|
||||||
ExecStart = "sbcl --load ${initScript cfg.port load-paths}";
|
ExecStart = "sbcl --load ${initScript cfg.port}";
|
||||||
Restart = "on-failure";
|
Restart = "on-failure";
|
||||||
PIDFile = "/run/slynk.$USERNAME.pid";
|
PIDFile = "/run/slynk.$USERNAME.pid";
|
||||||
};
|
};
|
||||||
|
Loading…
x
Reference in New Issue
Block a user