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

inline write-{addresses,prefixes}

Browse source
This commit is contained in:
Daniel Barlow 2023-09-08 16:49:09 +01:00
parent 3e163d4253
commit 4bd3ccc8fd
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
pkgs/odhcp-script/odhcp6-script.fnl
View file

@ -34,11 +34,6 @@
(each [k v (pairs address)] (each [k v (pairs address)]
(write-value (.. keydir "/" k) v))))) (write-value (.. keydir "/" k) v)))))
(fn write-addresses [addresses]
(write-addresses-thing "address/" addresses))
(fn write-prefixes [prefixes]
(write-addresses-thing "prefix/" prefixes))
;; we remove state before updating to ensure that consumers don't get ;; we remove state before updating to ensure that consumers don't get
;; a half-updated snapshot ;; a half-updated snapshot
@ -79,8 +74,9 @@
]] ]]
(each [_ n (ipairs wanted)] (each [_ n (ipairs wanted)]
(write-value-from-env n)) (write-value-from-env n))
(write-addresses (os.getenv :ADDRESSES))
(write-prefixes (os.getenv :PREFIXES))) (write-addresses-thing "address/" (os.getenv :ADDRESSES))
(write-addresses-thing "prefix/" (os.getenv :PREFIXES)))
(let [[ifname state] arg (let [[ifname state] arg
ready (match state ready (match state