diff options
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) |