DGNum/liminix
13
0
Fork 2
Code Issues 15 Pull requests 7 Projects Releases Packages Wiki Activity Actions

replace var/each with accumulate

Browse source
This commit is contained in:
Daniel Barlow 2023-09-12 20:55:08 +01:00
parent 8f97c5bf3c
commit 3bdb7754d3
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
examples/acquire-wan-address.fnl
View file

@ -31,14 +31,13 @@
new-addresses)) new-addresses))
(fn run [] (fn run []
(var addresses [])
(let [[state-directory wan-device] arg (let [[state-directory wan-device] arg
dir (svc.open state-directory)] dir (svc.open state-directory)]
(each [v (dir:events)] (accumulate [addresses []
v (dir:events)]
;; we don't handle unbound or stopped, where we should ;; we don't handle unbound or stopped, where we should
;; take the addresses away ;; take the addresses away
(when (. bound-states (v:output "state")) (when (. bound-states (v:output "state"))
(set addresses (update-addresses wan-device addresses (v:output "address"))))))
(update-addresses wan-device addresses (v:output "address")))))))
{ : update-addresses : changes : run } { : update-addresses : changes : run }