import Control.Concurrent.ParallelIO.Global (
parallelInterleaved,
stopGlobalPool )
-import Control.Monad ( unless )
import qualified Data.ByteString.Char8 as BS (
hGetContents,
hPutStrLn,
lines,
null,
- pack,
- readFile )
+ pack )
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.IO (
- IOMode( WriteMode ),
- hClose,
hFlush,
- openFile,
stdin,
stdout )
-import CommandLine ( Args(..), get_args )
+import CommandLine (
+ Args( Args, accept_a, rfc5322 ),
+ 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
main = do
Args{..} <- get_args
- -- Get the input from either stdin, or the file given on the command
- -- line.
- input <- case input_file of
- Nothing -> BS.hGetContents stdin
- Just path -> do
- is_file <- doesFileExist path
- unless is_file $
- exitWith (ExitFailure exit_input_file_doesnt_exist)
- BS.readFile path
-
- -- Do the same for the output handle and stdout.
- output_handle <- case output_file of
- Nothing -> return stdout
- Just path -> openFile path WriteMode
-
- -- Split the input into lines.
+ -- Split stdin into lines, which should result in a list of addresses.
+ input <- BS.hGetContents stdin
let addresses = BS.lines input
-- And remove the empty ones.
-- Output the results.
let valid_addresses = map fst valid_results
- mapM_ (BS.hPutStrLn output_handle) valid_addresses
+ mapM_ (BS.hPutStrLn stdout) valid_addresses
stopGlobalPool
-
- -- Clean up. It's safe to try to close stdout.
- hFlush output_handle
- hClose output_handle
+ hFlush stdout