From 6b327d1f391efbff13264466f98cffb6bfe88a1c Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sun, 3 Apr 2022 12:34:53 +0100
Subject: [PATCH] remove unused `find` fn

---
 blinkenlicht/nl.fnl | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/blinkenlicht/nl.fnl b/blinkenlicht/nl.fnl
index fa72941..87587fc 100644
--- 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 {}