src/CommandLine.hs: import ExitFailure explicitly.

[spline3.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index c404890396156b519105cfb67dd7e48052f925fc..7eb41d10cf33c8f69f03418d04392e0b1cc8d589 100644 (file)
--- 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 =