From 18facb4c9e367503edfc9cabe1ba9947c85980c6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 4 Apr 2012 17:06:18 -0400
Subject: [PATCH] Correct contract documentation

---
 zonedb.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zonedb.rkt b/zonedb.rkt
index eb4caa1..50af311 100644
--- a/zonedb.rkt
+++ b/zonedb.rkt
@@ -168,7 +168,7 @@
 (define (filter-by-type rrset type)
   (set-filter (lambda (rr) (eqv? (rr-type rr) type)) rrset))
 
-;; filter-rrs : SetOf<RR> QueryType QueryClass
+;; filter-rrs : SetOf<RR> QueryType QueryClass -> SetOf<RR>
 ;; Returns a set like its argument with RRs not matching the given
 ;; type and class removed.
 (define (filter-rrs rrs qtype qclass)