connection_string :: Maybe ConnectionString,
log_file :: Maybe FilePath,
log_level :: Maybe Priority,
connection_string :: Maybe ConnectionString,
log_file :: Maybe FilePath,
log_level :: Maybe Priority,
syslog :: Maybe Bool,
xml_files :: [FilePath] }
deriving (Show, Data, Typeable)
syslog :: Maybe Bool,
xml_files :: [FilePath] }
deriving (Show, Data, Typeable)
(merge_maybes (connection_string cfg1) (connection_string cfg2))
(merge_maybes (log_file cfg1) (log_file cfg2))
(merge_maybes (log_level cfg1) (log_level cfg2))
(merge_maybes (connection_string cfg1) (connection_string cfg2))
(merge_maybes (log_file cfg1) (log_file cfg2))
(merge_maybes (log_level cfg1) (log_level cfg2))
cfg_connection_string <- DC.lookup cfg "connection_string"
cfg_log_file <- DC.lookup cfg "log_file"
cfg_log_level <- DC.lookup cfg "log_level"
cfg_connection_string <- DC.lookup cfg "connection_string"
cfg_log_file <- DC.lookup cfg "log_file"
cfg_log_level <- DC.lookup cfg "log_level"
cfg_syslog <- DC.lookup cfg "syslog"
let cfg_xml_files = [] -- This won't be in the config file.
return $ OptionalConfiguration
cfg_syslog <- DC.lookup cfg "syslog"
let cfg_xml_files = [] -- This won't be in the config file.
return $ OptionalConfiguration