makeResolvSeed,
withResolver )
--- Slow since we create the resolver every time.
+
+-- | Retrieve all MX records for the given domain. This is somewhat
+-- inefficient, since we create the resolver every time.
+--
lookup_mxs :: Domain -> IO [Domain]
lookup_mxs domain = do
default_rs <- makeResolvSeed defaultResolvConf