X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FMain.hs;h=0182e38196db034cb52b070e61ac8042c2d2e210;hp=f2febcb95ced479f1b965e2ea96ef21bf4ab7326;hb=8c69c28e5ab5ef5a5ed64411e1213e504a6a309e;hpb=eb1187607a616b36bb446650dc141019345eed8f

diff --git a/src/Main.hs b/src/Main.hs
index f2febcb..0182e38 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -247,7 +247,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 (syslog cfg)
+  init_logging (log_file cfg) (log_level cfg) (syslog cfg)
 
   -- Check the optional config for missing required options. This is
   -- necessary because if the user specifies an empty list of