diff options
Diffstat (limited to 'lisp/dns/client.lisp')
| -rw-r--r-- | lisp/dns/client.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dns/client.lisp b/lisp/dns/client.lisp index 01d403a600dd..cee7bceb54a0 100644 --- a/lisp/dns/client.lisp +++ b/lisp/dns/client.lisp @@ -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 |