DGNum/liminix
13
0
Fork 1
Code Issues 16 Pull requests 10 Projects Releases Packages Wiki Activity Actions

anoia.fs.mktree replaces mkdir

Browse source 
This uses lfs to make the tree in-process instead of
shelling out to the mkdir command
This commit is contained in:
Daniel Barlow 2023-09-08 21:17:42 +01:00
parent 4e9227dff3
commit 9dd3cf23b4
3 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
pkgs/odhcp-script/odhcp6-script.fnl
View file

@ -1,9 +1,9 @@
(local { : split : merge : mkdir } (require :anoia))
(local { : split : merge } (require :anoia))
(local { : view } (require :fennel))
(local { : rmtree } (require :anoia.fs))
(local { : mktree : rmtree } (require :anoia.fs))
(local state-directory (assert (os.getenv "SERVICE_STATE")))
(mkdir state-directory)
(mktree state-directory)
(fn write-value [name value]
(let [path (.. state-directory "/" name)]
@ -29,11 +29,10 @@
keydir (.. prefix (-> address.address
(: :gsub "::$" "")
(: :gsub ":" "-")))]
(mkdir (.. state-directory "/" keydir))
(mktree (.. state-directory "/" keydir))
(each [k v (pairs address)]
(write-value (.. keydir "/" k) v)))))
;; we remove state before updating to ensure that consumers don't get
;; a half-updated snapshot
(os.remove (.. state-directory "/state"))