import Data.Version (showVersion)
import OptionalConfiguration ( OptionalConfiguration(..) )
-import TSN.FeedHosts ( FeedHosts(..) )
-- | The description of the program, displayed as part of the help.
description :: String
-- | A description of the "log_file" option.
log_file_help :: String
log_file_help =
- "If syslog == False, log to the given file."
+ "Log to the given file."
log_level_help :: String
log_level_help =
-- | A description of the "syslog" option.
syslog_help :: String
syslog_help =
- "Enable (default) or disable logging to syslog."
+ "Enable logging to syslog."
-- | A description of the "username" option.
username_help :: String
-- Use an empty list for feed_hosts since cmdargs will appends to
-- the default when the user supplies feed hosts. If he specifies
-- any, those are all we should use.
- feed_hosts = FeedHosts [] &= typ "HOSTNAMES" &= args,
+ feed_hosts = def &= typ "HOSTNAMES" &= args,
log_file = def &= typFile &= help log_file_help,
log_level = def &= typ "LEVEL" &= help log_level_help,
password = def &= typ "PASSWORD" &= help password_help,