From f058a1be787eaadc41f53785cadb058edf20762b Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 8 Apr 2010 18:23:47 +0900 Subject: using Lazy ByteString --- 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 66bfb31..a431dbd 100644 --- a/Network/DNS/Query.hs +++ b/Network/DNS/Query.hs @@ -1,13 +1,13 @@ module Network.DNS.Query (composeQuery) where -import Data.ByteString.Lazy (ByteString) +import qualified Data.ByteString.Lazy.Char8 as L import Data.Char import Network.DNS.StateBinary import Network.DNS.Internal ---------------------------------------------------------------- -composeQuery :: Int -> [Question] -> ByteString +composeQuery :: Int -> [Question] -> L.ByteString composeQuery idt qs = runSPut (encodeQuery qry) where hdr = header defaultQuery -- cgit v1.2.3