import System.Log ( Priority( INFO ) )
import Backend ( Backend(..) )
+import ConnectionString ( ConnectionString )
import qualified OptionalConfiguration as OC (
OptionalConfiguration(..),
merge_maybes )
data Configuration =
Configuration {
backend :: Backend,
- connection_string :: String,
+ connection_string :: ConnectionString,
log_file :: Maybe FilePath,
log_level :: Priority,
+ remove :: Bool,
syslog :: Bool }
deriving (Show)
connection_string = def,
log_file = def,
log_level = INFO,
+ remove = def,
syslog = def }
(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))
+ (merge (remove cfg) (OC.remove opt_cfg))
(merge (syslog cfg) (OC.syslog opt_cfg))
where
-- | If the thing on the right is Just something, return that