From 2eb482bfb9e0e0089ce33df98b0963043bf904f9 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 13 Jul 2012 15:36:05 +0900
Subject: cosmetic change.

---
 Network/DNS/Decode.hs   |  7 +++----
 Network/DNS/Resolver.hs | 11 +++++------
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/Network/DNS/Decode.hs b/Network/DNS/Decode.hs
index bb376da..b598d97 100644
--- a/Network/DNS/Decode.hs
+++ b/Network/DNS/Decode.hs
@@ -167,12 +167,11 @@ decodeDomain :: SGet Domain
 decodeDomain = do
     pos <- getPosition
     c <- getInt8
-    if c == 0
-      then return ""
+    if c == 0 then
+        return ""
       else do
         let n = getValue c
-        if isPointer c
-          then do
+        if isPointer c then do
             d <- getInt8
             let offset = n * 256 + d
             fromMaybe (error $ "decodeDomain: " ++ show offset) <$> pop offset
diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs
index f040383..195ce39 100644
--- a/Network/DNS/Resolver.hs
+++ b/Network/DNS/Resolver.hs
@@ -158,9 +158,7 @@ lookup :: Resolver -> Domain -> TYPE -> IO (Maybe [RDATA])
 lookup rlv dom typ = (>>= toRDATA) <$> lookupRaw rlv dom typ
   where
     {- CNAME hack
-    dom' = if "." `isSuffixOf` dom
-           then dom
-           else dom ++ "."
+    dom' = if "." `isSuffixOf` dom then dom else dom ++ "."
     correct r = rrname r == dom' && rrtype r == typ
     -}
     correct r = rrtype r == typ
@@ -183,9 +181,10 @@ lookupRaw rlv dom typ = do
     q = makeQuestion dom typ
     check seqno res = do
         let hdr = header res
-        if identifier hdr == seqno
-            then Just res
-            else Nothing
+        if identifier hdr == seqno then
+            Just res
+          else
+            Nothing
 
 #if mingw32_HOST_OS == 1
     -- Windows does not support sendAll in Network.ByteString.Lazy.
-- 
cgit v1.2.3