merge_maybes )
where
+-- System imports.
import qualified Data.Configurator as DC (
Worth(Optional),
load,
import System.Log ( Priority(..) )
import Text.Read ( readMaybe )
+-- Local imports.
import Backend ( Backend(..) )
import ConnectionString ( ConnectionString )
import Network.Services.TSN.Report ( report_error )
deriving instance Data Priority
deriving instance Typeable Priority
--- | The same as Configuration, except everything is optional. It's easy to
--- merge two of these by simply dropping the Nothings in favor of
--- the Justs. The 'feed_hosts' are left un-maybed so that cmdargs
--- can parse more than one of them.
+-- | The same as 'Configuration', except everything is optional. It's
+-- easy to merge two of these by simply dropping the 'Nothing's in
+-- favor of the 'Just's. The 'xml_files' are left un-maybed so that
+-- cmdargs can parse more than one of them.
--
data OptionalConfiguration =
OptionalConfiguration {
merge_maybes (Just _) (Just y) = Just y
--- | The Monoid instance for these lets us "combine" two
--- OptionalConfigurations. The "combine" operation that we'd like to
+-- | The Monoid instance for these lets us \"combine\" two
+-- OptionalConfigurations. The \"combine\" operation that we'd like to
-- perform is, essentially, to mash them together. So if we have two
-- OptionalConfigurations, each half full, we could combine them
-- into one big one.