X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FDNS.hs;h=2ebde3c2d537f2a2a2808ca0fb22232800b19b9c;hp=b8e9cd0521e6baec631c56da2d4753e531e2ffc1;hb=78aed23927af1734e0adf03095a617ba5ddbea01;hpb=2dd49227efae7fa0de2045b4dae36bbe30c3d65d

diff --git a/src/DNS.hs b/src/DNS.hs
index b8e9cd0..2ebde3c 100644
--- a/src/DNS.hs
+++ b/src/DNS.hs
@@ -5,7 +5,6 @@ module DNS (
   resolve_address )
 where
 
-import Control.Monad ( liftM )
 import qualified Data.ByteString.Char8 as BS ( pack )
 import Data.IP (IPv4)
 import Network.DNS (
@@ -63,7 +62,7 @@ resolve_address s =
 --
 lookupMX' :: Resolver -> Domain -> IO LookupResult
 lookupMX' resolver domain =
-  liftM (pair_em . drop_priority) $ lookupMX resolver domain
+  fmap (pair_em . drop_priority) $ lookupMX resolver domain
   where
     drop_priority :: Either DNSError [(Domain, Int)]
                   -> Either DNSError [Domain]
@@ -96,7 +95,7 @@ lookupNS' :: Resolver -> Domain -> IO LookupResult
 lookupNS' resolver domain = do
   answer_result <- lookupNS resolver domain
   auth_result <- lookupNSAuth resolver domain
-  liftM pair_em $ return $ combine answer_result auth_result
+  fmap pair_em $ return $ combine answer_result auth_result
   where
     pair_em :: a -> (Domain, a)
     pair_em = (,) domain