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

Ohhh, wasn't ANDing SELECT conditions

Browse Source
This commit is contained in:
Niten 2020-11-16 20:52:59 -08:00
parent 0bcd0e0faa
commit f843cb6a90
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backplane-dns.lisp
View File

@ -77,9 +77,9 @@
(get-domain) (get-domain)
(id)))) (id))))
(select-dao 'dns-record (select-dao 'dns-record
(:= 'name (format nil "~A.~A" host domain)) (:and (:= 'name (format nil "~A.~A" host domain))
(:= 'domain-id domain-id) (:= 'domain-id domain-id)
(:= 'type type)) (:= 'type type)))
(error 'domain-name-missing :domain domain))) (error 'domain-name-missing :domain domain)))
(defun consider-update-content (record content) (defun consider-update-content (record content)