From: Michael Orlitzky Date: Sat, 15 Feb 2014 19:30:22 +0000 (-0500) Subject: Whitespace cleanup in Main, import from EmailAddress explicitly. X-Git-Tag: 0.0.3~3 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=407e2910b4ceb5f4824ffde093085eaa1fa93e7e;p=email-validator.git Whitespace cleanup in Main, import from EmailAddress explicitly. --- diff --git a/src/Main.hs b/src/Main.hs index 551dae7..7a57dad 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,37 +6,40 @@ where import Control.Concurrent.ParallelIO.Global ( parallelInterleaved, - stopGlobalPool) -import Control.Monad (unless) + stopGlobalPool ) +import Control.Monad ( unless ) import qualified Data.ByteString.Char8 as BS ( hGetContents, hPutStrLn, lines, null, pack, - readFile) + readFile ) import Network.DNS ( Domain, Resolver, ResolvConf(..), defaultResolvConf, makeResolvSeed, - withResolver) -import Network.DNS.Lookup (lookupA, lookupMX) -import System.Directory (doesFileExist) -import System.Exit (exitWith, ExitCode(..)) + withResolver ) +import Network.DNS.Lookup ( lookupA, lookupMX ) +import System.Directory ( doesFileExist ) +import System.Exit ( exitWith, ExitCode(..) ) import System.IO ( IOMode( WriteMode ), hClose, hFlush, openFile, stdin, - stdout) + stdout ) -import CommandLine (Args(..), get_args) -import EmailAddress -import ExitCodes (exit_input_file_doesnt_exist) +import CommandLine ( Args(..), get_args ) +import EmailAddress( + Address, + parts, + validate_syntax ) +import ExitCodes ( exit_input_file_doesnt_exist ) -- | Resolver parameters. We increase the default timeout from 3 to 10