liminix

commit f0f6cc80d756a6432c09beaaa69dfc4abeba14f0
parent afcc6a6436d2ceec9ce04df9f3a2a9ed3e67d837
Author: Daniel Barlow <dan@telent.net>
Date:   Mon,  8 Jul 2024 20:55:46 +0100

remove dead code

Diffstat:
M
pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl
 | 
4
----

1 file changed, 0 insertions(+), 4 deletions(-)
diff --git a/pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl b/pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl
@@ -1,5 +1,4 @@
 (local { : opendir : readdir } (require :lualinux))
-(local { : view } (require :fennel))
 
 (fn fail [err]
   (print "ERROR" err)
@@ -23,9 +22,6 @@
             (values filename filename)))
     (nil err) (fail (.. "can't open " dir " :" err))))
 
-(fn stopped-services []
-  (popen (.. "s6-rc -da list")))
-
 (fn stopped-controlled-services [dir]
   (let [controlled (controlled-services dir)]
     (with-popen [h (.. "s6-rc -b -da list")]