1 module DNS ( lookup_mxs )
12 -- | Retrieve all MX records for the given domain. This is somewhat
13 -- inefficient, since we create the resolver every time.
15 lookup_mxs :: Domain -> IO [Domain]
16 lookup_mxs domain = do
17 default_rs <- makeResolvSeed defaultResolvConf
18 withResolver default_rs $ \resolver -> do
19 mxs <- lookupMX resolver domain
22 Right pairs -> map fst pairs