From b145be12d1587d37fc02ab6d12cc01b2506cfd25 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sat, 5 Oct 2013 15:07:53 -0400 Subject: [PATCH] Increase the timeout from 5s to 10s. --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.44.2