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

Ah shit I was retrieving a list

This commit is contained in:
Niten 2020-12-04 10:00:58 -08:00
parent 99a1abe88b
commit 3075453a8c
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-store.lisp
View File

@ -61,7 +61,7 @@
:reader error-msg))) :reader error-msg)))
(defun get-domain (domain) (defun get-domain (domain)
(if-let ((domain (select-dao 'dns-domain (:= 'name domain)))) (if-let ((domain (car (select-dao 'dns-domain (:= 'name domain)))))
domain domain
(error 'domain-name-missing :domain domain))) (error 'domain-name-missing :domain domain)))