-- instance of Configured for [String] if we had defined one in
-- e.g. 'OptionalConfiguration'.
--
-module MxList
+module MxList (
+ MxList( MxList, get_mxs ) )
where
-- DC is needed only for the DCT.Configured instance of String.
Value( List ),
convert )
import Data.Data (Data)
-import System.Console.CmdArgs.Default (Default(..))
-import Data.Typeable (Typeable)
+import System.Console.CmdArgs.Default ( Default( def ) )
-- | A (wrapper around a) list of MX hostnames.
--
newtype MxList =
MxList { get_mxs :: [String] }
- deriving (Data, Show, Typeable)
+ deriving (Data, Show)
-- | The default (empty) list of MXes.
+--
instance Default MxList where
def = MxList []
+
instance DCT.Configured MxList where
-- | This allows us to read a MxList object out of a Configurator
-- config file. By default Configurator wouldn't know what to do,