From a2f7ba9ffb2a809be4215799360a848611eb790b Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 18 Mar 2010 11:00:25 +0900
Subject: cosmetic change.

---
 Network/DNS/Response.hs | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'Network')

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
 
 ----------------------------------------------------------------
-- 
cgit v1.2.3