From 6d12dfcb67a87140b2222e482f57df7336c47dd1 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 22 Mar 2010 16:41:14 +0900 Subject: ignoring the first length for TXT. --- Network/DNS/Response.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Network/DNS') 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 -- cgit v1.2.3