From f4a63a083210f064de3aaac10aeb8b45c889eb42 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 28 Dec 2011 13:53:19 -0500
Subject: [PATCH] Prepare to switch to the unit-based resolver in the proxy

---
 proxy.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/proxy.rkt b/proxy.rkt
index d67ed9f..197aede 100644
--- a/proxy.rkt
+++ b/proxy.rkt
@@ -2,6 +2,7 @@
 
 ;; Simple imperative DNS proxy.
 
+(require racket/unit)
 (require racket/match)
 (require racket/udp)
 (require racket/set)
@@ -10,11 +11,14 @@
 (require "api.rkt")
 (require "codec.rkt")
 (require "zonedb.rkt")
+(require "resolver-unit.rkt")
 (require "dump-bytes.rkt")
 (require "simple-udp-service.rkt")
 
 (require racket/pretty)
 
+(define-values/invoke-unit/infer (link resolver@ simple-udp-service-udp-operations@))
+
 ;; Instantiated with a collection of trusted roots to begin its
 ;; searches from. Performs recursive queries. Doesn't yet cache
 ;; responses, but will do so in future.