From 7bc67b0c7f8fee18c2657d2b50e5dd68cd019d13 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 19 Sep 2011 17:38:47 -0400
Subject: [PATCH] Cosmetic

---
 codec.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/codec.rkt b/codec.rkt
index efec923..8e08c05 100644
--- a/codec.rkt
+++ b/codec.rkt
@@ -146,6 +146,8 @@
 (define (packet->dns-message packet)
   (bit-string-case packet
     ([ (id :: bits 16)
+
+       ;; 16 bits of flags, opcode, and response-code:
        (qr :: (t:named-bit 'request 'response))
        (opcode :: bits 4)
        (aa :: (t:named-bit 'non-authoritative 'authoritative))
@@ -154,6 +156,7 @@
        (ra :: (t:named-bit 'no-recursion-available 'recursion-available))
        (= 0 :: bits 3)
        (rcode :: bits 4)
+
        (qdcount :: bits 16)
        (ancount :: bits 16)
        (nscount :: bits 16)