+ rc_cfg <- OC.from_rc
+ cmd_cfg <- get_args
+
+ -- Merge the config file options with the command-line ones,
+ -- prefering the command-line ones.
+ let opt_config = rc_cfg <> cmd_cfg
+
+ -- Update a default config with any options that have been set in
+ -- either the config file or on the command-line. We initialize
+ -- 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)
+
+ -- Check the optional config for missing required options.
+ when (null $ OC.xml_files opt_config) $ do
+ report_error "No XML files given."
+ exitWith (ExitFailure exit_no_xml_files)
+
+ -- There's a default connection string, namely the empty string, but
+ -- it's not much use to us. So we make sure that we were given
+ -- something explicitly.
+ when (isNothing (OC.connection_string opt_config)) $ do
+ report_error "No connection string supplied."
+ exitWith (ExitFailure exit_no_connection_string)
+
+
+ return ()