diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-18 11:00:25 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-03-18 11:00:25 +0900 |
| commit | a2f7ba9ffb2a809be4215799360a848611eb790b (patch) | |
| tree | 56c565a9816e204ae744421c46afda605ff5a5ce /Network | |
| parent | 825e27472ab361f9fdb46146c44cd56a571ed947 (diff) | |
cosmetic change.
Diffstat (limited to 'Network')
| -rw-r--r-- | Network/DNS/Response.hs | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs index fa4cdf4..92808ae 100644 --- a/Network/DNS/Response.hs +++ b/Network/DNS/Response.hs @@ -105,11 +105,18 @@ decodeRData AAAA len = (RD_AAAA . toIPv6 . combine) <$> getNBytes len combine (a:b:cs) = a * 256 + b : combine cs decodeRData SOA _ = RD_SOA <$> decodeDomain <*> decodeDomain - <*> getInt32 - <*> getInt32 - <*> getInt32 - <*> getInt32 - <*> getInt32 + <*> decodeSerial + <*> decodeRefesh + <*> decodeRetry + <*> decodeExpire + <*> decodeMinumun + where + decodeSerial = getInt32 + decodeRefesh = getInt32 + decodeRetry = getInt32 + decodeExpire = getInt32 + decodeMinumun = getInt32 + decodeRData _ len = RD_OTH <$> getNBytes len ---------------------------------------------------------------- |