update acquire-delegated-prefix to use svc.events

This commit is contained in:
Daniel Barlow
2023-09-13 17:49:57 +01:00
parent fa040a194c
commit 92e107d77c
3 changed files with 34 additions and 58 deletions

View File

@@ -1,6 +1,9 @@
(local { : system } (require :anoia))
(local svc (require :anoia.svc))
;; acquire-delegated-prefix has very similar code: we'd like to move
;; this to anoia.svc when we see what the general form would look like
(fn changes [old-addresses new-addresses]
(let [added {}
deleted {}]