Minor change
This commit is contained in:
parent
104c24fcd7
commit
4cd4d8f8d9
|
@ -2,11 +2,6 @@
|
|||
|
||||
(in-package #:backplane-dns)
|
||||
|
||||
(defun xmpp-connect (hostname username password)
|
||||
(let ((conn (xmpp:connect-tls :hostname hostname)))
|
||||
(xmpp:auth conn username password "backplane")
|
||||
conn))
|
||||
|
||||
(defun getenv-or-fail (env-var &optional default)
|
||||
(let ((value (uiop:getenv env-var)))
|
||||
(if (null value)
|
||||
|
|
Loading…
Reference in New Issue