dan/liminix
1
0
Fork 5
Code

watch-outputs remove debug code

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-06 00:13:30 +01:00
parent 464913cc8f
commit cc47515cf8
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/watch-outputs/watch-outputs.fnl
View File

@ -1,6 +1,5 @@
(local { : %% : system : assoc : split : table= : dig } (require :anoia)) (local { : %% : system : assoc : split : table= : dig } (require :anoia))
(local svc (require :anoia.svc)) (local svc (require :anoia.svc))
(local { : view } (require :fennel))
(local { : kill } (require :lualinux)) (local { : kill } (require :lualinux))
(fn split-paths [paths] (fn split-paths [paths]
@ -45,7 +44,6 @@
(accumulate [tree (service:output ".") (accumulate [tree (service:output ".")
v (service:events)] v (service:events)]
(let [new-tree (service:output ".")] (let [new-tree (service:output ".")]
(print :was (view tree) :now (view new-tree))
(when (changed? paths tree new-tree) (when (changed? paths tree new-tree)
(print "watched path event:" action controlled-service) (print "watched path event:" action controlled-service)
(do-action action controlled-service)) (do-action action controlled-service))