From 7be2952f50efce84f99c95c5e96df202ee2da68c Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 13 Jul 2012 15:32:03 +0900
Subject: cosmetic change.

---
 Network/DNS/Encode.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Network/DNS/Encode.hs b/Network/DNS/Encode.hs
index e685f51..e9d7c3e 100644
--- a/Network/DNS/Encode.hs
+++ b/Network/DNS/Encode.hs
@@ -107,9 +107,10 @@ encodeRR ResourceRecord{..} =
       , putInt32 rrttl
       , rlenRDATA
       ]
-    where
-      rlenRDATA = do
-        addPositionW 2 -- "simulate" putInt16 
+  where
+    -- Encoding rdata without using rdlen
+    rlenRDATA = do
+        addPositionW 2 -- "simulate" putInt16
         rDataWrite <- encodeRDATA rdata
         let rdataLength = fromIntegral . BS.length . BB.toByteString . BB.fromWrite $ rDataWrite
         let rlenWrite = BB.writeInt16be rdataLength
-- 
cgit v1.2.3