From 4fa2676715d20ad9b7b01d504188a538cd20194d Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 24 Oct 2011 16:14:27 +0900
Subject: ordering.

---
 Network/DNS/Resolver.hs | 14 --------------
 1 file changed, 14 deletions(-)

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

diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs
index 44aee7d..e7f043b 100644
--- a/Network/DNS/Resolver.hs
+++ b/Network/DNS/Resolver.hs
@@ -182,17 +182,3 @@ lookupRaw rlv dom typ = do
         if identifier hdr == seqno && anCount hdr /= 0
             then Just res
             else Nothing
-
-----------------------------------------------------------------
-
-composeQuery :: Int -> [Question] -> BL.ByteString
-composeQuery idt qs = encode qry
-  where
-    hdr = header defaultQuery
-    qry = defaultQuery {
-        header = hdr {
-           identifier = idt
-         , qdCount = length qs
-         }
-      , question = qs
-      }
-- 
cgit v1.2.3