diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-09-06 16:33:49 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-09-06 16:33:49 +0900 |
commit | 4b50a2b0cb6125db0a4f7c84768b2736b6ac5552 (patch) | |
tree | 9cc11fa644428b8f9f78442418081fb5815c41d5 /Network/DNS/Response.hs | |
parent | 8e28329b12d1cabd0038e5d86c8c8edd9dfe0e5e (diff) |
Supporting SRV.
Diffstat (limited to 'Network/DNS/Response.hs')
-rw-r--r-- | Network/DNS/Response.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs index fdce3e3..36f6203 100644 --- a/Network/DNS/Response.hs +++ b/Network/DNS/Response.hs @@ -127,6 +127,14 @@ decodeRData SOA _ = RD_SOA <$> decodeDomain decodeExpire = getInt32 decodeMinumun = getInt32 decodeRData PTR _ = RD_PTR <$> decodeDomain +decodeRData SRV _ = RD_SRV <$> decodePriority + <*> decodeWeight + <*> decodePort + <*> decodeDomain + where + decodePriority = getInt16 + decodeWeight = getInt16 + decodePort = getInt16 decodeRData _ len = RD_OTH <$> getNBytes len |