diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2012-07-13 15:32:03 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2012-07-13 15:32:03 +0900 |
| commit | 7be2952f50efce84f99c95c5e96df202ee2da68c (patch) | |
| tree | a4d620b59b4c25e984533eaabf4c4e96ddf8164e | |
| parent | 4618003319b55f8aa77d1bea8dcf99fde6997a1e (diff) | |
cosmetic change.
| -rw-r--r-- | Network/DNS/Encode.hs | 7 |
1 files 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 |