From f0f6cc80d756a6432c09beaaa69dfc4abeba14f0 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Mon, 8 Jul 2024 20:55:46 +0100
Subject: [PATCH] remove dead code
---
pkgs/s6-rc-up-tree/s6-rc-up-tree.fnl | 4 ----
1 file changed, 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
index 0b23e604..2ad80173 100644
--- 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")]