From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 9 Jan 2014 23:36:51 +0000 (-0500)
Subject: Reorder init_logging arguments to match htsn-common.
X-Git-Tag: 0.0.4^0
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=commitdiff_plain;h=bb74b494c23a737b9c0355148d25f090545b856b

Reorder init_logging arguments to match htsn-common.
---

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