X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FMain.hs;h=38dd2e5ad5e8af5c4336c667507a6a87b74c0ccd;hp=3f0974346d38389c20b00fdb8bd4b4d02eeb4860;hb=bb74b494c23a737b9c0355148d25f090545b856b;hpb=7300f85caa0e6158eaf9ad972b488e2f58089a89

diff --git a/src/Main.hs b/src/Main.hs
index 3f09743..38dd2e5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -256,7 +256,7 @@ main = do
   -- logging before the missing parameter checks below so that we can
   -- log the errors.
   let cfg = (def :: Configuration) `merge_optional` opt_config
-  init_logging (log_file cfg) (log_level cfg) (syslog cfg)
+  init_logging (log_level cfg) (log_file cfg) (syslog cfg)
 
   -- Check the optional config for missing required options. This is
   -- necessary because if the user specifies an empty list of