Ah shit I was retrieving a list
This commit is contained in:
parent
99a1abe88b
commit
3075453a8c
|
@ -61,7 +61,7 @@
|
|||
:reader error-msg)))
|
||||
|
||||
(defun get-domain (domain)
|
||||
(if-let ((domain (select-dao 'dns-domain (:= 'name domain))))
|
||||
(if-let ((domain (car (select-dao 'dns-domain (:= 'name domain)))))
|
||||
domain
|
||||
(error 'domain-name-missing :domain domain)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue