diff options
Diffstat (limited to 'Network/DNS/Resolver.hs')
-rw-r--r-- | Network/DNS/Resolver.hs | 14 |
1 files changed, 0 insertions, 14 deletions
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 - } |