1 module DNS ( lookup_mxs )
11 -- Slow since we create the resolver every time.
12 lookup_mxs :: Domain -> IO [Domain]
13 lookup_mxs domain = do
14 default_rs <- makeResolvSeed defaultResolvConf
15 withResolver default_rs $ \resolver -> do
16 mxs <- lookupMX resolver domain
19 Right pairs -> map fst pairs