username :: Maybe String }
deriving (Show, Data, Typeable)
username :: Maybe String }
deriving (Show, Data, Typeable)
-- | Combine @cfg1@ and @cfg2@, giving precedence to @cfg2@.
cfg1 `mappend` cfg2 =
OptionalConfiguration
(merge_maybes (database cfg1) (database cfg2))
(merge_maybes (detail cfg1) (detail cfg2))
-- | Combine @cfg1@ and @cfg2@, giving precedence to @cfg2@.
cfg1 `mappend` cfg2 =
OptionalConfiguration
(merge_maybes (database cfg1) (database cfg2))
(merge_maybes (detail cfg1) (detail cfg2))
(merge_maybes (host cfg1) (host cfg2))
(merge_maybes (password cfg1) (password cfg2))
(merge_maybes (port cfg1) (port cfg2))
(merge_maybes (host cfg1) (host cfg2))
(merge_maybes (password cfg1) (password cfg2))
(merge_maybes (port cfg1) (port cfg2))
DC.Optional user_config_path ]
cfg_database <- DC.lookup cfg "database"
cfg_detail <- DC.lookup cfg "detail"
DC.Optional user_config_path ]
cfg_database <- DC.lookup cfg "database"
cfg_detail <- DC.lookup cfg "detail"
cfg_host <- DC.lookup cfg "host"
cfg_password <- DC.lookup cfg "password"
cfg_port <- DC.lookup cfg "port"
cfg_host <- DC.lookup cfg "host"
cfg_password <- DC.lookup cfg "password"
cfg_port <- DC.lookup cfg "port"