-- | This module defines the 'Configuration' type, which is just a
-- wrapper around all of the configuration options we accept on the
--- command line. We thread this throughout the rest of the program.
-
+-- command line.
+--
module Configuration (
Configuration(..),
merge_optional )
import System.Console.CmdArgs.Default (Default(..))
-import FeedHosts (FeedHosts(..))
import qualified OptionalConfiguration as OC (OptionalConfiguration(..))
+import TSN.FeedHosts (FeedHosts(..))
data Configuration =
Configuration {
instance Default Configuration where
def = Configuration def def "." def
+
+-- | Merge a Configuration with an OptionalConfiguration. This is more
+-- 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