X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=0a41318c1beb4d267dbb249623d2324e76d27333;hb=579f3e4c6b01f0e89fa6dc8c41a22330d4cb7b8f;hp=d66f704e8d0cd91ce1676b75380e85146cdbed67;hpb=35061a4e3cc150d3dc800ae3b2a4ad6ebe06112f;p=dead%2Fhtsn-import.git

diff --git a/src/Main.hs b/src/Main.hs
index d66f704..0a41318 100644
--- 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