X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=5059479679c3d0e593d38196654f7905a57ea730;hb=2ac26d82b77e3fa84efb5f8593b7b92416929e9e;hp=551dae752ae3343446716b520f0d13bb5274ed74;hpb=4bce4546cbd70c8aab8ca81441010e0527ebbb07;p=email-validator.git

diff --git a/src/Main.hs b/src/Main.hs
index 551dae7..5059479 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
@@ -142,7 +145,7 @@ main = do
 
   -- Output the results.
   let valid_addresses = map fst valid_results
-  _ <- mapM (BS.hPutStrLn output_handle) valid_addresses
+  mapM_ (BS.hPutStrLn output_handle) valid_addresses
 
   stopGlobalPool