liminix

commit bcf5ab24e882f034c66349c74480ecd10593965a
parent 32bf80c6fa1c43b706a6996abbc4e004551d29f7
Author: Daniel Barlow <dan@telent.net>
Date:   Thu,  5 Sep 2024 10:11:16 +0100

tidy watch-outputs startup message

Diffstat:
M
pkgs/watch-outputs/watch-outputs.fnl
 | 
7
++-----

1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/pkgs/watch-outputs/watch-outputs.fnl b/pkgs/watch-outputs/watch-outputs.fnl
@@ -1,4 +1,4 @@
-(local { : system : assoc : split : table= : dig } (require :anoia))
+(local { : %% : system : assoc : split : table= : dig } (require :anoia))
 (local svc (require :anoia.svc))
 (local { : view } (require :fennel))
 (local { : kill } (require :lualinux))
@@ -27,8 +27,6 @@
                _ path (ipairs paths)]
     (or changed? (not (table= (dig old-tree path) (dig new-tree path))))))
 
-(fn %% [fmt ...] (string.format fmt ...))
-
 (fn do-action [action service]
   (case action
     :restart (system (%% "s6-svc -r /run/service/%s" service))
@@ -42,9 +40,8 @@
          : watched-service
          : paths } (parse-args arg)
         dir (.. watched-service "/.outputs")
-        _ (print :service-dir dir)
         service (assert (svc.open dir))]
-    (print "watching " watched-service)
+    (print (%% "watching %q" watched-service))
     (accumulate [tree (service:output ".")
                  v (service:events)]
       (let [new-tree (service:output ".")]