dan
/
liminix
1
0
Fork 5
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

devout: handle readiness on netlink socket but no event

main
Daniel Barlow 2024-04-26 17:12:12 +01:00
parent cf9cadd212
commit b9c084415e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/devout/devout.fnl
View File

@ -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)]