Bump version to 0.2.1.

[hath.git] / src / DNS.hs

diff --git a/src/DNS.hs b/src/DNS.hs
index 041eeeb52e2404b1d6951f3942cee600b8b28cc4..a535de59adeb17a75b3c52333504bc65303e4bee 100644 (file)
--- a/src/DNS.hs
+++ b/src/DNS.hs
@@ -6,36 +6,20 @@ module DNS (
 where
 
 import Control.Concurrent.ParallelIO.Global ( parallel )
-import qualified  Data.ByteString.Char8 as BS (
-  append,
-  intercalate,
-  pack,
-  split )
 import Network.DNS (
   Domain,
   DNSError,
   ResolvConf(..),
   defaultResolvConf,
-  lookupPTR,
+  lookupRDNS,
   makeResolvSeed,
   withResolver )
 
 
--- The return type of lookupPTR.
+-- The return type of lookupRDNS.
 type PTRResult = Either DNSError [Domain]
 
 
--- | Convert the given IP address (as a ByteString) to the format
---   required for a PTR lookup. For example, "192.168.0.0" should be
---   converted to "0.0.168.192.in-addr.arpa".
-ip_to_in_addr_arpa :: Domain -> Domain
-ip_to_in_addr_arpa ip =
-  rev_ip `BS.append` suffix
-  where
-    dot = BS.pack "."
-    suffix = BS.pack ".in-addr.arpa"
-    rev_ip = BS.intercalate dot (reverse (BS.split '.' ip))
-
 -- | Take the default ResolvConf and increase the timeout to 15
 --   seconds.
 our_resolv_conf :: ResolvConf
@@ -49,9 +33,6 @@ lookup_ptrs :: [Domain] -> IO [PTRResult]
 lookup_ptrs ips = do
   rs <- makeResolvSeed our_resolv_conf
   let lookup' addr = withResolver rs $ \resolver ->
-                       lookupPTR resolver addr
-
-  parallel $ map lookup' in_addrs
+                       lookupRDNS resolver addr
 
-  where
-    in_addrs = map ip_to_in_addr_arpa ips
+  parallel $ map lookup' ips