Better debug messages
This commit is contained in:
parent
b991160eab
commit
33939ba1f0
|
@ -206,12 +206,13 @@
|
||||||
[#f ;; We're not authoritative so this is just a signal that we can't answer usefully
|
[#f ;; We're not authoritative so this is just a signal that we can't answer usefully
|
||||||
(send-empty-reply w q)]
|
(send-empty-reply w q)]
|
||||||
[(referral zone-origin nameserver-rrs _)
|
[(referral zone-origin nameserver-rrs _)
|
||||||
|
(define referral-id (gensym 'referral))
|
||||||
(begin
|
(begin
|
||||||
(write `(Referral for ,q
|
(write `(Referral for ,q
|
||||||
|
id ,referral-id
|
||||||
to ,(domain-labels zone-origin)
|
to ,(domain-labels zone-origin)
|
||||||
servers ,(map domain-labels (set-map nameserver-rrs rr-rdata))))
|
servers ,(map domain-labels (set-map nameserver-rrs rr-rdata))))
|
||||||
(newline))
|
(newline))
|
||||||
(define referral-id (gensym 'referral))
|
|
||||||
(transition w
|
(transition w
|
||||||
(spawn (network-query client-sock
|
(spawn (network-query client-sock
|
||||||
q
|
q
|
||||||
|
|
Loading…
Reference in New Issue