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/Resolver.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'Network/DNS/Resolver.hs')

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