From c6f95458177293c52658ac0cb3baf9e84484f2ed Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 16 Jan 2012 17:20:10 -0500 Subject: [PATCH] The simplified-driver doesn't need any UDP operations --- simplified-driver.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/simplified-driver.rkt b/simplified-driver.rkt index 10bb659..9d7090a 100644 --- a/simplified-driver.rkt +++ b/simplified-driver.rkt @@ -10,14 +10,19 @@ (require "api.rkt") (require "codec.rkt") (require "zonedb.rkt") -(require "ground-udp-operations-unit.rkt") -(require "network-query-unit.rkt") +(require "network-query-sig.rkt") (require "resolver-unit.rkt") (require "dump-bytes.rkt") (require "simple-udp-service.rkt") +(define-unit network-query@ + (import) + (export network-query^) + (define (network-query/addresses q db ns-rr addresses) + (error 'network-query/addresses "Forbidden to invoke resolver in server"))) + (define-values/invoke-unit/infer - (link resolver@ network-query@ ground-udp-operations@)) + (link resolver@ network-query@)) ;; Instantiated with a SOA record for the zone it is serving as well ;; as a zone's worth of DNS data which is used to answer queries