diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-04-08 18:23:47 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2010-04-08 18:23:47 +0900 |
commit | f058a1be787eaadc41f53785cadb058edf20762b (patch) | |
tree | 5a65dcbfe513f82b6776e4941360e737a2b3f66c /Network/DNS/Lookup.hs | |
parent | 19cd857470e3a46a3d8e06d84c0728a08061646f (diff) |
using Lazy ByteString
Diffstat (limited to 'Network/DNS/Lookup.hs')
-rw-r--r-- | Network/DNS/Lookup.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Network/DNS/Lookup.hs b/Network/DNS/Lookup.hs index ad0da4d..5f27fa5 100644 --- a/Network/DNS/Lookup.hs +++ b/Network/DNS/Lookup.hs @@ -9,10 +9,11 @@ module Network.DNS.Lookup ( ) where import Control.Applicative +import qualified Data.ByteString.Lazy.Char8 as L import Data.IP import Data.Maybe -import Network.DNS.Types import Network.DNS.Resolver as DNS +import Network.DNS.Types ---------------------------------------------------------------- @@ -76,7 +77,7 @@ lookupXviaMX rlv dom func = do {-| Resolving 'String' by 'TXT'. -} -lookupTXT :: Resolver -> Domain -> IO (Maybe [String]) +lookupTXT :: Resolver -> Domain -> IO (Maybe [L.ByteString]) lookupTXT rlv dom = toTXT <$> DNS.lookup rlv dom TXT where toTXT = maybe Nothing (Just . map unTag) |