import System.Console.CmdArgs.Default ( Default(..) )
import System.Log ( Priority( INFO ) )
+import Backend ( Backend(..) )
+import ConnectionString ( ConnectionString )
import qualified OptionalConfiguration as OC (
OptionalConfiguration(..),
merge_maybes )
-
-- | The main configuration data type. This will be passed to most of
-- the important functions once it has been created.
data Configuration =
Configuration {
- connection_string :: String,
+ backend :: Backend,
+ connection_string :: ConnectionString,
log_file :: Maybe FilePath,
log_level :: Priority,
syslog :: Bool }
-- values.
instance Default Configuration where
def = Configuration {
+ backend = def,
connection_string = def,
log_file = def,
log_level = INFO,
- syslog = def }
+ syslog = def }
-- | Merge a Configuration with an OptionalConfiguration. This is more
-> Configuration
merge_optional cfg opt_cfg =
Configuration
+ (merge (backend cfg) (OC.backend opt_cfg))
(merge (connection_string cfg) (OC.connection_string opt_cfg))
(OC.merge_maybes (log_file cfg) (OC.log_file opt_cfg))
(merge (log_level cfg) (OC.log_level opt_cfg))