From fa040a194c0ed7d9fc3f58d46ac229189ae9d959 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Wed, 13 Sep 2023 13:17:58 +0100
Subject: [PATCH] acquire-wan-address remove boundness checking

if we're unbound then the script will be called with
empty ADDRESSES and so the usual case will handle this fine
by removing all the previosuly set addresses
---
 examples/acquire-wan-address.fnl | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/examples/acquire-wan-address.fnl b/examples/acquire-wan-address.fnl
index f56030a..a54d306 100644
--- a/examples/acquire-wan-address.fnl
+++ b/examples/acquire-wan-address.fnl
@@ -1,14 +1,6 @@
 (local { : system } (require :anoia))
 (local svc (require :anoia.svc))
 
-(local bound-states
-       { :bound true
-         :rebound true
-         :informed true
-         :updated true
-         :ra-updated true
-         })
-
 (fn changes [old-addresses new-addresses]
   (let [added {}
         deleted {}]
@@ -35,9 +27,6 @@
         dir (svc.open state-directory)]
     (accumulate [addresses []
                  v (dir:events)]
-      ;; we don't handle unbound or stopped, where we should
-      ;; take the addresses away
-      (when (. bound-states (v:output "state"))
-        (update-addresses wan-device addresses (v:output "address"))))))
+      (update-addresses wan-device addresses (v:output "address")))))
 
 { : update-addresses : changes : run }