X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCommandLine.hs;h=7eb41d10cf33c8f69f03418d04392e0b1cc8d589;hb=01224fcd3726b07ebc3cb3c92da81d1384a4ca9a;hp=c404890396156b519105cfb67dd7e48052f925fc;hpb=ce936039ed9ea446dd79544eb5b9cfd30a8188bd;p=spline3.git

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index c404890..7eb41d1 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -16,7 +16,6 @@ import System.Console.CmdArgs (
   CmdArgs,
   Data,
   Mode,
-  Typeable,
   (&=),
   argPos,
   cmdArgsApply,
@@ -33,7 +32,7 @@ import System.Console.CmdArgs (
 
 import System.Console.CmdArgs.Explicit ( process )
 import System.Environment ( getArgs, withArgs )
-import System.Exit ( ExitCode(..), exitWith )
+import System.Exit ( ExitCode( ExitFailure ), exitWith )
 import System.IO ( hPutStrLn, stderr )
 
 import ExitCodes ( exit_arg_parse_failed )
@@ -50,7 +49,7 @@ data Args =
          slice  :: Maybe Int,
          upper_threshold :: Int,
          width  :: Int }
-  deriving   (Show, Data, Typeable)
+  deriving   (Show, Data)
 
 description :: String
 description =