src/Main.hs: use only explicit import lists.

[email-validator.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 7a57dad3ad9179196dd1465cf16b29e38180106d..1393d4c0d41aee7983100fd1125975b59d97ec18 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE DoAndIfThenElse #-}
 {-# LANGUAGE RecordWildCards #-}
 
-module Main
+module Main (main)
 where
 
 import Control.Concurrent.ParallelIO.Global (
@@ -18,13 +18,13 @@ import qualified Data.ByteString.Char8 as BS (
 import Network.DNS (
   Domain,
   Resolver,
-  ResolvConf(..),
+  ResolvConf( resolvTimeout ),
   defaultResolvConf,
   makeResolvSeed,
   withResolver )
 import Network.DNS.Lookup ( lookupA, lookupMX )
 import System.Directory ( doesFileExist )
-import System.Exit ( exitWith, ExitCode(..) )
+import System.Exit ( exitWith, ExitCode( ExitFailure ) )
 import System.IO (
   IOMode( WriteMode ),
   hClose,
@@ -34,7 +34,9 @@ import System.IO (
   stdout )
 
 
-import CommandLine ( Args(..), get_args )
+import CommandLine (
+  Args( Args, accept_a, input_file, output_file, rfc5322 ),
+  get_args )
 import EmailAddress(
   Address,
   parts,
@@ -145,7 +147,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