merge_optional )
where
+-- System imports.
import System.Console.CmdArgs.Default ( Default(..) )
import System.Log ( Priority( INFO ) )
+-- Local imports.
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.
+
+-- | The main configuration data type. It contains all options that
+-- can be set in a config file or on the command line.
+--
data Configuration =
Configuration {
backend :: Backend,
-- | Merge a Configuration with an OptionalConfiguration. This is more
--- or less the Monoid instance for OptionalConfiguration, but since
+-- or less the Monoid instance for 'OptionalConfiguration', but since
-- the two types are different, we have to repeat ourselves.
+--
merge_optional :: Configuration
-> OC.OptionalConfiguration
-> Configuration