make watch-ssh-keys robust against missing key

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

View File

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