More debug output

2012-02-19 11:14:47 -05:00 · 2012-02-19 11:14:47 -05:00 · 863ecf50b6
parent f3d96227b0
commit 863ecf50b6
1 changed files with 4 additions and 1 deletions
--- 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 _)