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

rename fn

Browse source
This commit is contained in:
Daniel Barlow 2023-09-08 16:49:52 +01:00
parent 4bd3ccc8fd
commit 09fe21260e
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/odhcp-script/odhcp6-script.fnl
View file

@ -24,7 +24,7 @@
(string.match str "(.-)/(%d+),(%d+),(%d+)(.*)$")] (string.match str "(.-)/(%d+),(%d+),(%d+)(.*)$")]
(merge {: address : len : preferred : valid} (parse-extra extra)))) (merge {: address : len : preferred : valid} (parse-extra extra))))
(fn write-addresses-thing [prefix addresses] (fn write-addresses [prefix addresses]
(each [_ a (ipairs (split " " addresses))] (each [_ a (ipairs (split " " addresses))]
(let [address (parse-address a) (let [address (parse-address a)
keydir (.. prefix (-> address.address keydir (.. prefix (-> address.address
@ -75,8 +75,8 @@
(each [_ n (ipairs wanted)] (each [_ n (ipairs wanted)]
(write-value-from-env n)) (write-value-from-env n))
(write-addresses-thing "address/" (os.getenv :ADDRESSES)) (write-addresses "address/" (os.getenv :ADDRESSES))
(write-addresses-thing "prefix/" (os.getenv :PREFIXES))) (write-addresses "prefix/" (os.getenv :PREFIXES)))
(let [[ifname state] arg (let [[ifname state] arg
ready (match state ready (match state