X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FConfiguration.hs;h=10e01bcb01c37e62fd9e54edaf6907cef896363d;hb=ae4540dc27f564fe14b8a3d0118e183f3c75d715;hp=68751d6015784242e7ecdb89fcf2ee568ef383da;hpb=f6cb0ba712e06e52d080b86e9eba6c3585a7514b;p=dead%2Fhtsn.git

diff --git a/src/Configuration.hs b/src/Configuration.hs
index 68751d6..10e01bc 100644
--- a/src/Configuration.hs
+++ b/src/Configuration.hs
@@ -15,6 +15,8 @@ import qualified OptionalConfiguration as OC (
   merge_maybes )
 import TSN.FeedHosts (FeedHosts(..))
 
+-- | The main configuration data type. This will be passed to most of
+--   the important functions once it has been created.
 data Configuration =
   Configuration {
     daemonize        :: Bool,
@@ -40,7 +42,7 @@ instance Default Configuration where
           log_level        = INFO,
           output_directory = ".",
           password         = def,
-          pidfile          = "/run/htsn.pid",
+          pidfile          = "/run/htsn/htsn.pid",
           run_as_group     = def,
           run_as_user      = def,
           syslog           = def,