X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMxList.hs;h=10a9af6e7a8bbd6ba75d24d8e43e95290a242b75;hb=59b78070e1390a4cea14b4ba981f734e4da428f4;hp=ce0e6490c3bd2d64c26beff26574151cc5d31e67;hpb=8e5a377920002012c38066a2d21b6393a78c677a;p=list-remote-forwards.git diff --git a/src/MxList.hs b/src/MxList.hs index ce0e649..10a9af6 100644 --- a/src/MxList.hs +++ b/src/MxList.hs @@ -5,7 +5,8 @@ -- instance of Configured for [String] if we had defined one in -- e.g. 'OptionalConfiguration'. -- -module MxList +module MxList ( + MxList(..) ) where -- DC is needed only for the DCT.Configured instance of String. @@ -16,14 +17,13 @@ import qualified Data.Configurator.Types as DCT ( convert ) import Data.Data (Data) import System.Console.CmdArgs.Default (Default(..)) -import Data.Typeable (Typeable) -- | 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.