diff options
Diffstat (limited to 'Network/DNS/Response.hs')
-rw-r--r-- | Network/DNS/Response.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs index 92808ae..e49013a 100644 --- a/Network/DNS/Response.hs +++ b/Network/DNS/Response.hs @@ -97,6 +97,7 @@ decodeRData MX _ = RD_MX <$> decodePreference <*> decodeDomain where decodePreference = getInt16 decodeRData CNAME _ = RD_CNAME <$> decodeDomain +decodeRData TXT len = (RD_TXT . map chr) <$> getNBytes len decodeRData A len = (RD_A . toIPv4) <$> getNBytes len decodeRData AAAA len = (RD_AAAA . toIPv6 . combine) <$> getNBytes len where |