maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(lisp/dns): Return dns-answer from query functions

Browse source
This commit is contained in:
Vincent Ambo 2020-01-27 02:10:39 +00:00
parent ca1217655d
commit 253a166bbc
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/dns/client.lisp
View file

@ -40,7 +40,8 @@
("name" . ,name)
("ct" . "application/dns-message")))
(if (= 200 status)
(read-binary 'dns-message (flexi-streams:make-in-memory-input-stream body))
(dns-message-answer
(read-binary 'dns-message (flexi-streams:make-in-memory-input-stream body)))
(restart-case (error 'doh-error
:query-name name