X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FMain.hs;h=ac72ad513919bc932866bed73608268935ec8062;hp=b7316b75b5afd04d4e28cef3b8a8271cebf1fc9e;hb=b145be12d1587d37fc02ab6d12cc01b2506cfd25;hpb=841348097246a32b9a4b9eee1063e80321e03905 diff --git a/src/Main.hs b/src/Main.hs index b7316b7..ac72ad5 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -33,10 +33,10 @@ import EmailAddress import ExitCodes (exit_input_file_doesnt_exist) --- | Resolver parameters. We increase the default timeout from 3 to 5 +-- | Resolver parameters. We increase the default timeout from 3 to 10 -- seconds. resolv_conf :: ResolvConf -resolv_conf = defaultResolvConf { resolvTimeout = 5 * 1000 * 1000 } +resolv_conf = defaultResolvConf { resolvTimeout = 10 * 1000 * 1000 } -- | A list of common domains, there's no need to waste MX lookups -- on these.