syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Better contract

This commit is contained in:
Tony Garnock-Jones 2012-02-06 14:17:38 -05:00
parent 1203d9a18c
commit b871a60c64
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
zonedb.rkt
View File

@ -25,11 +25,11 @@
;; and subzone checks into prefix rather than suffix checks. It makes
;; domain names into paths through the DNS DB tree.
;; RR Hash -> Hash
;; RR CompiledZone -> CompiledZone
(define (incorporate-rr rr db)
(hash-set db (rr-name rr) (set-add (hash-ref db (rr-name rr) set) rr)))
;; Maybe<CompleteAnswer> Hash -> Hash
;; Maybe<CompleteAnswer> CompiledZone -> CompiledZone
(define (incorporate-complete-answer ans db)
(match ans
[#f db]