X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=7a57dad3ad9179196dd1465cf16b29e38180106d;hb=407e2910b4ceb5f4824ffde093085eaa1fa93e7e;hp=0e7c30fa03bd5d93e23a5f61acf716d55ff549a9;hpb=eae92cebe7fab4afc5c7de377ec30ec348ef09ad;p=email-validator.git

diff --git a/src/Main.hs b/src/Main.hs
index 0e7c30f..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(..), apply_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
@@ -103,7 +106,7 @@ validate resolver accept_a rfc5322 address = do
 
 main :: IO ()
 main = do
-  Args{..} <- apply_args
+  Args{..} <- get_args
 
   -- Get the input from either stdin, or the file given on the command
   -- line.