From 4bd3ccc8fd2c90721db69dcd35fdca279e95c2b8 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
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 d71a05c75..b8bbcb618 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