From 407e2910b4ceb5f4824ffde093085eaa1fa93e7e Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 15 Feb 2014 14:30:22 -0500
Subject: [PATCH] Whitespace cleanup in Main, import from EmailAddress
 explicitly.

---
 src/Main.hs | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

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
-- 
2.43.2