Change the order of init_logging's arguments.

diff --git a/src/Main.hs b/src/Main.hs
index d66f704e8d0cd91ce1676b75380e85146cdbed67..0a41318c1beb4d267dbb249623d2324e76d27333 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -183,7 +183,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.
   when (null $ OC.xml_files opt_config) $ do