Reduced { barriers :: Bool } |
Duped { barriers :: Bool } |
Diffed { barriers :: Bool } |
- Listed { barriers :: Bool } |
- Reversed { barriers :: Bool }
+ Listed { barriers :: Bool }
deriving (Data, Show, Typeable)
-- | Description of the 'Regexed' mode.
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,
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.