eufon

commit 6b327d1f391efbff13264466f98cffb6bfe88a1c
parent 6c6d7b0d18d53b52ec861fb7e28464eb23a2bcea
Author: Daniel Barlow <dan@telent.net>
Date:   Sun,  3 Apr 2022 12:34:53 +0100

remove unused `find` fn

Diffstat:
M
blinkenlicht/nl.fnl
 | 
8
--------

1 file changed, 0 insertions(+), 8 deletions(-)
diff --git a/blinkenlicht/nl.fnl b/blinkenlicht/nl.fnl
@@ -5,9 +5,6 @@
 (local nls (nl.socket))
 (print "File descriptor:" (nls:fd))
 
-
-
-
 ;; when we have a default route, we get the ifname
 
 ;; $ grep DEVTYPE /sys/class/net/*/uevent
@@ -21,12 +18,7 @@
 
 ;; for wwan, need to determine how to get strength and carrier name
 
-(fn find [predicate tbl]
-  (accumulate [found nil
-               _ el (ipairs tbl)]
-              (if (predicate el) el found)))
 
-(print (find #(= $1 "hey") [:one :two :hey :three]))
 
 (fn netlunk []
   (let [links {}