X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCommandLine.hs;h=e76fedd94efb096eaadd545bec579b1cb9eed9ac;hb=HEAD;hp=02663396be5b6c278d0e774d5c8047c29780a679;hpb=c52c0aeff2842038ef0f8eabb2cc9ac00453115b;p=email-validator.git

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 0266339..e76fedd 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -7,15 +7,13 @@ where
 
 import System.Console.CmdArgs (
   Data,
-  Typeable,
   (&=),
   cmdArgs,
   def,
   details,
   help,
   program,
-  summary,
-  typFile )
+  summary )
 
 
 -- Get the version from Cabal.
@@ -23,13 +21,9 @@ import Paths_email_validator ( version )
 import Data.Version ( showVersion )
 
 
--- We optionally accept input/output files to use instead of
--- stdin/stdout.
 data Args = Args { accept_a :: Bool,
-                   input_file :: Maybe FilePath,
-                   output_file :: Maybe FilePath,
                    rfc5322 :: Bool }
-  deriving   (Show, Data, Typeable)
+  deriving   (Show, Data)
 
 description :: String
 description = "Perform naive validation of email addresses."
@@ -44,14 +38,6 @@ accept_a_help :: String
 accept_a_help =
   "Accept an 'A' record for the domain instead of requiring an MX record."
 
-input_file_help :: String
-input_file_help =
-  "Path to the input file (default: stdin), one email address per line"
-
-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)."
@@ -59,8 +45,6 @@ rfc5322_help =
 arg_spec :: Args
 arg_spec =
     Args { accept_a    = def &=            help accept_a_help,
-           input_file  = def &= typFile &= help input_file_help,
-           output_file = def &= typFile &= help output_file_help,
            rfc5322     = def &=            help rfc5322_help }
       &= program program_name
       &= summary my_summary