-- stdin/stdout.
data Args = Args { accept_a :: Bool,
input_file :: Maybe FilePath,
- output_file :: Maybe FilePath }
+ output_file :: Maybe FilePath,
+ rfc5322 :: Bool }
deriving (Show, Data, Typeable)
description :: String
output_file_help =
"Path to the output file (default: stdout)"
+rfc5322_help :: String
+rfc5322_help =
+ "Validate according to RFC 5322 (incredibly lenient)."
+
arg_spec :: Mode (CmdArgs Args)
arg_spec =
cmdArgsMode $
Args { accept_a = def &= help accept_a_help,
input_file = def &= typFile &= help input_file_help,
- output_file = def &= typFile &= help output_file_help }
+ output_file = def &= typFile &= help output_file_help,
+ rfc5322 = def &= help rfc5322_help }
&= program program_name
&= summary my_summary
&= details [description]