dan/liminix
1
0
Fork 5
Code

make watch-ssh-keys robust against missing key

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-03 22:51:29 +01:00
parent 699cf97206
commit 0c0d0eed8a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/watch-ssh-keys/watch-ssh-keys.fnl
View File

@ -52,9 +52,9 @@
(let [{: out-path : watched-service : path } (parse-args arg) (let [{: out-path : watched-service : path } (parse-args arg)
dir (.. watched-service "/.outputs") dir (.. watched-service "/.outputs")
service (assert (svc.open dir))] service (assert (svc.open dir))]
(accumulate [tree (service:output path) (accumulate [tree (or (service:output path) {})
v (service:events)] v (service:events)]
(write-changes out-path tree (service:output path))))) (write-changes out-path tree (or (service:output path) {})))))
{ : run } { : run }