From 4bd3ccc8fd2c90721db69dcd35fdca279e95c2b8 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Fri, 8 Sep 2023 16:49:09 +0100 Subject: [PATCH] inline write-{addresses,prefixes} --- pkgs/odhcp-script/odhcp6-script.fnl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/pkgs/odhcp-script/odhcp6-script.fnl b/pkgs/odhcp-script/odhcp6-script.fnl index d71a05c7..b8bbcb61 100644 --- a/pkgs/odhcp-script/odhcp6-script.fnl +++ b/pkgs/odhcp-script/odhcp6-script.fnl @@ -34,11 +34,6 @@ (each [k v (pairs address)] (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 ;; a half-updated snapshot @@ -79,8 +74,9 @@ ]] (each [_ n (ipairs wanted)] (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 ready (match state