liminix

commit b9c084415ec1a094d069c19e62d57a9363224b6a
parent cf9cadd212b6053cf73875616c14af3cfb9d198e
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 26 Apr 2024 17:12:12 +0100

devout: handle readiness on netlink socket but no event

Diffstat:
M
pkgs/devout/devout.fnl
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
@@ -11,7 +11,7 @@
 (fn trace [expr]
   (do (print :TRACE (view expr)) expr))
 
-(fn parse-uevent [s]
+(fn parse-event [s]
   (let [at (string.find s "@" 1 true)
         (nl nxt) (string.find s "\0" 1 true)]
     (doto
@@ -34,7 +34,7 @@
         found)))
 
 (fn record-event [db subscribers str]
-  (let [e (parse-uevent str)]
+  (let [e (parse-event str)]
     (match e.action
       :add (tset db e.path e)
       :change (tset db e.path e)
@@ -50,7 +50,7 @@
         subscribers []]
     {
      :find (fn [_ terms] (find-in-database db terms))
-     :add (fn [_ event-string] (record-event db subscribers event-string))
+     :add (fn [_ event-string] (when event-string (record-event db subscribers event-string)))
      :at-path (fn [_ path] (. db path))
      :subscribe (fn [_ id callback terms]
                   (let [past-events (find-in-database db terms)]