From 2b3919681b49d6f31311bfaf4bc3a958a076618d Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 24 Oct 2011 13:45:52 +0900
Subject: hlint.

---
 Network/DNS/Query.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/Network/DNS/Query.hs b/Network/DNS/Query.hs
index 3ebd5e0..bdf86bc 100644
--- a/Network/DNS/Query.hs
+++ b/Network/DNS/Query.hs
@@ -109,7 +109,7 @@ encodeRDATA rd = case rd of
     (RD_MX prf dom)    -> mconcat [putInt16 prf, encodeDomain dom]
     (RD_TXT txt)       -> putByteString txt
     (RD_OTH bytes)     -> mconcat $ map putInt8 bytes
-    (RD_SOA d1 d2 serial refresh retry expire min') -> mconcat $
+    (RD_SOA d1 d2 serial refresh retry expire min') -> mconcat
         [ encodeDomain d1
         , encodeDomain d2
         , putInt32 serial
@@ -118,7 +118,7 @@ encodeRDATA rd = case rd of
         , putInt32 expire
         , putInt32 min'
         ]
-    (RD_SRV prio weight port dom) -> mconcat $
+    (RD_SRV prio weight port dom) -> mconcat
         [ putInt16 prio
         , putInt16 weight
         , putInt16 port
-- 
cgit v1.2.3