let nonempty_addresses = filter (not . BS.null) addresses
rs <- makeResolvSeed resolv_conf
withResolver rs $ \resolver -> do
let actions = map (validate resolver) nonempty_addresses
results <- parallel actions
let nonempty_addresses = filter (not . BS.null) addresses
rs <- makeResolvSeed resolv_conf
withResolver rs $ \resolver -> do
let actions = map (validate resolver) nonempty_addresses
results <- parallel actions