Add an --rfc5322 option which validates against the real RFC syntax.

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

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index a7507df6a381a5365e7328aa8c3333158fac4c6b..405ded8ef9597cb181e986b4d31240a6594a9e9e 100644 (file)
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -19,7 +19,8 @@ import ExitCodes
 -- 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
@@ -43,12 +44,17 @@ output_file_help :: 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]