diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-22 16:41:14 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-22 16:41:14 +0900 |
commit | 6d12dfcb67a87140b2222e482f57df7336c47dd1 (patch) | |
tree | 0ae0c6addab51d192af01d27607da7720192ed03 /Network | |
parent | facb65df3bcd87b67c3afbc5888537340c1147ff (diff) |
ignoring the first length for TXT.
Diffstat (limited to 'Network')
-rw-r--r-- | Network/DNS/Response.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs index e49013a..1b025fd 100644 --- a/Network/DNS/Response.hs +++ b/Network/DNS/Response.hs @@ -97,7 +97,9 @@ decodeRData MX _ = RD_MX <$> decodePreference <*> decodeDomain where decodePreference = getInt16 decodeRData CNAME _ = RD_CNAME <$> decodeDomain -decodeRData TXT len = (RD_TXT . map chr) <$> getNBytes len +decodeRData TXT len = (RD_TXT . map chr . ignoreLength) <$> getNBytes len + where + ignoreLength = tail decodeRData A len = (RD_A . toIPv4) <$> getNBytes len decodeRData AAAA len = (RD_AAAA . toIPv6 . combine) <$> getNBytes len where |