public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

set-difference order meant it skipped if none existed

This commit is contained in:
Niten 2020-11-17 15:11:09 -08:00
parent 8f1de937f5
commit 543df72f39
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backplane-dns.lisp
View File

@ -194,7 +194,7 @@
(:= 'domain-id domain-id) (:= 'domain-id domain-id)
(:= 'type "SSHFP")))) (:= 'type "SSHFP"))))
(existing-sshfps (mapcar #'record-content sshfp-records))) (existing-sshfps (mapcar #'record-content sshfp-records)))
(if (not (set-difference existing-sshfps new-sshfps)) (if (not (set-difference new-sshfps existing-sshfps))
t t
(with-transaction () (with-transaction ()
(dolist (record sshfp-records) (dolist (record sshfp-records)