1 {-# LANGUAGE DeriveDataTypeable #-}
6 import System.Console.CmdArgs
7 import System.Console.CmdArgs.Explicit (process)
8 import System.Environment (getArgs, withArgs)
9 import System.Exit (ExitCode(..), exitWith)
10 import System.IO (hPutStrLn, stderr)
12 -- Get the version from Cabal.
13 import Paths_email_validator (version)
14 import Data.Version (showVersion)
18 -- We optionally accept input/output files to use instead of
20 data Args = Args { accept_a :: Bool,
21 input_file :: Maybe FilePath,
22 output_file :: Maybe FilePath,
24 deriving (Show, Data, Typeable)
27 description = "Perform naive validation of email addresses."
29 program_name :: String
30 program_name = "email-validator"
33 my_summary = program_name ++ "-" ++ (showVersion version)
35 accept_a_help :: String
37 "Accept an 'A' record for the domain instead of requiring an MX record."
39 input_file_help :: String
41 "Path to the input file (default: stdin), one email address per line"
43 output_file_help :: String
45 "Path to the output file (default: stdout)"
47 rfc5322_help :: String
49 "Validate according to RFC 5322 (incredibly lenient)."
51 arg_spec :: Mode (CmdArgs Args)
54 Args { accept_a = def &= help accept_a_help,
55 input_file = def &= typFile &= help input_file_help,
56 output_file = def &= typFile &= help output_file_help,
57 rfc5322 = def &= help rfc5322_help }
58 &= program program_name
60 &= details [description]
62 show_help :: IO (CmdArgs Args)
63 show_help = withArgs ["--help"] parse_args
67 parse_args :: IO (CmdArgs Args)
70 let y = process arg_spec x
72 Right result -> return result
75 exitWith (ExitFailure exit_args_parse_failed)
78 -- | Really get the command-line arguments. This calls 'parse_args'
79 -- first to replace the default "wrong number of arguments" error,
80 -- and then runs 'cmdArgsApply' on the result to do what the
81 -- 'cmdArgs' function usually does.
84 parse_args >>= cmdArgsApply