From 863ecf50b63264db8b97f834f65baeee335031cb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 19 Feb 2012 11:14:47 -0500 Subject: [PATCH] More debug output --- proxy.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/proxy.rkt b/proxy.rkt index 0038870..48edabe 100644 --- a/proxy.rkt +++ b/proxy.rkt @@ -206,7 +206,10 @@ (send-empty-reply w q)] [(question-state zone q client-sock nameservers-tried old-retry-count) ;; Credit remaining. Try once more (perhaps for the first time, in fact). - (match (resolve-from-zone q zone #f nameservers-tried) + (define resolution-result (resolve-from-zone q zone #f nameservers-tried)) + (begin (write `(Resolution result ,resolution-result)) + (newline)) + (match resolution-result [#f ;; We're not authoritative so this is just a signal that we can't answer usefully (send-empty-reply w q)] [(referral zone-origin nameserver-rrs _)