diff options
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 |