liminix

commit cc47515cf8289b76e2f1f56545a866e5b8de6b46
parent 464913cc8fe9ec41f8294b9ed3826cfa05c8d2ce
Author: Daniel Barlow <dan@telent.net>
Date:   Fri,  6 Sep 2024 00:13:30 +0100

watch-outputs remove debug code

Diffstat:
M
pkgs/watch-outputs/watch-outputs.fnl
 | 
2
--

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