dan/liminix
1
0
Fork 5
Code

remove dead code

Browse Source
This commit is contained in:
Daniel Barlow 2024-07-08 20:55:46 +01:00
parent afcc6a6436
commit f0f6cc80d7
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl
View File

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