Don't derive Typeable (GHC 8+).

[hath.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 789f76c0addc7fa1281c9fd2ad711d9ac6fc073b..9ecbc8a10ff218ae245a069ff750800ee69de4f3 100644 (file)
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -16,7 +16,6 @@ import System.Console.CmdArgs (
   Ann,
   Annotate( (:=) ),
   Data,
-  Typeable,
   (+=),
   auto,
   cmdArgs_,
@@ -64,9 +63,8 @@ data Args =
   Reduced { barriers :: Bool } |
   Duped { barriers :: Bool } |
   Diffed { barriers :: Bool } |
-  Listed { barriers :: Bool } |
-  Reversed { barriers :: Bool }
-  deriving (Data, Show, Typeable)
+  Listed { barriers :: Bool }
+  deriving (Data, Show)
 
 -- | Description of the 'Regexed' mode.
 regexed_description :: String
@@ -92,20 +90,13 @@ listed_description :: String
 listed_description =
   "Enumerate the IP addresses contained within the input CIDRs."
 
--- | Description of the 'Reversed' mode.
-reversed_description :: String
-reversed_description =
-  "Perform a reverse DNS (PTR) lookup on each IP address " ++
-  "contained within the input CIDRs."
-
-
 -- | We use explicit annotation here because if we use the magic
 --   annotation, we have to duplicate the same argument definitions six
 --   times.
 --
 arg_spec :: Annotate Ann
 arg_spec =
-  modes_ [regexed += auto, reduced, duped, diffed, listed, reversed]
+  modes_ [regexed += auto, reduced, duped, diffed, listed]
     += program program_name
     += summary my_summary
     += helpArg [explicit,
@@ -129,7 +120,6 @@ arg_spec =
     duped    = make_mode Duped duped_description
     diffed   = make_mode Diffed diffed_description
     listed   = make_mode Listed listed_description
-    reversed = make_mode Reversed reversed_description
 
 -- | This is the public interface; i.e. what main() should use to get
 --   the command-line arguments.