From b9c084415ec1a094d069c19e62d57a9363224b6a Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 26 Apr 2024 17:12:12 +0100
Subject: [PATCH] devout: handle readiness on netlink socket but no event
---
pkgs/devout/devout.fnl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
index ea257be9..a9631365 100644
--- 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)]