dan/liminix
1
0
Fork 5
Code

keys in service output tree are strings

Browse Source
This commit is contained in:
Daniel Barlow 2024-08-25 15:59:24 +01:00
parent 1b4106e2a3
commit 83ca86fe42
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/watch-ssh-keys/watch-ssh-keys.fnl
View File

@ -13,7 +13,8 @@
(when (not (table= old-tree new-tree))
(each [username pubkeys (pairs new-tree)]
(with-open [f (assert (io.open (.. path "/" username) :w))]
(each [_ k (ipairs pubkeys)]
;; the keys are "1" "2" "3" etc, so pairs not ipairs
(each [_ k (pairs pubkeys)]
(f:write k)
(f:write "\n")))))
(each [k v (pairs old-tree)]