Reorder init_logging arguments to match htsn-common.

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

diff --git a/src/Main.hs b/src/Main.hs
index 3f0974346d38389c20b00fdb8bd4b4d02eeb4860..38dd2e5ad5e8af5c4336c667507a6a87b74c0ccd 100644 (file)
--- 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