X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCommandLine.hs;h=787cc1992f3d0a1c8099a8048d833396698e76af;hb=6b199442fa5a94cd41c2e708a8338e2da0516fc8;hp=ad60c9f0a7e1667037e49e7131d194adbea0a2a8;hpb=4bce4546cbd70c8aab8ca81441010e0527ebbb07;p=email-validator.git diff --git a/src/CommandLine.hs b/src/CommandLine.hs index ad60c9f..787cc19 100644 --- a/src/CommandLine.hs +++ b/src/CommandLine.hs @@ -7,7 +7,6 @@ where import System.Console.CmdArgs ( Data, - Typeable, (&=), cmdArgs, def, @@ -15,12 +14,12 @@ import System.Console.CmdArgs ( help, program, summary, - typFile) + typFile ) -- Get the version from Cabal. -import Paths_email_validator (version) -import Data.Version (showVersion) +import Paths_email_validator ( version ) +import Data.Version ( showVersion ) -- We optionally accept input/output files to use instead of @@ -29,7 +28,7 @@ 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."