X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMxList.hs;h=6a03870c0939ea71950f7f075235c90e36249d48;hb=5e7c6ee66d7d3efbc48b16f81dcfd2e59c84a9da;hp=e31e7f4be8ab655dcecfbc7052948a2b7497ed62;hpb=749f5cf383337c96beb5255031dd081961508fe5;p=list-remote-forwards.git

diff --git a/src/MxList.hs b/src/MxList.hs
index e31e7f4..6a03870 100644
--- a/src/MxList.hs
+++ b/src/MxList.hs
@@ -6,7 +6,7 @@
 --   e.g. 'OptionalConfiguration'.
 --
 module MxList (
-  MxList(..) )
+  MxList( MxList, get_mxs ) )
 where
 
 -- DC is needed only for the DCT.Configured instance of String.
@@ -16,15 +16,14 @@ import qualified Data.Configurator.Types as DCT (
   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.