Disable syslog by default.

[dead/htsn.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index ad4f867363d75e3f1081167ff1f87201a0439d05..c96fb6b568018f4eeb3462e4e8f42ab0552d8e54 100644 (file)
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -22,7 +22,6 @@ import Paths_htsn (version)
 import Data.Version (showVersion)
 
 import OptionalConfiguration ( OptionalConfiguration(..) )
-import TSN.FeedHosts ( FeedHosts(..) )
 
 -- | The description of the program, displayed as part of the help.
 description :: String
@@ -40,7 +39,7 @@ my_summary = program_name ++ "-" ++ (showVersion version)
 -- | 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 =
@@ -59,7 +58,7 @@ output_directory_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
@@ -75,7 +74,7 @@ arg_spec =
     -- 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,