list-remote-forwards.cabal: delete the redundant description

[list-remote-forwards.git] / src / Report.hs

diff --git a/src/Report.hs b/src/Report.hs
index 82dd07bc8750944fc9e2f8c526005d4f3e9f69a3..0f77f511448014e3a05572da885be4f94f29650a 100644 (file)
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -15,24 +15,26 @@ import Database.HDBC (
   prepare,
   sFetchAllRows')
 import Database.HDBC.Sqlite3 ( connectSqlite3 )
-import System.Console.CmdArgs.Default ( Default(..) )
+import System.Console.CmdArgs.Default ( Default( def ) )
 import Test.Tasty ( TestTree, testGroup )
 import Test.Tasty.HUnit ( (@?=), testCase )
 
-import Configuration ( Configuration(..) )
+import Configuration ( Configuration( domain_query,
+                                      exclude_mx,
+                                      forward_query) )
 import DNS (
   MxSetMap,
   NormalDomain,
   mx_set_map,
   normalize_string )
 import Forward (
-  Forward(..),
+  Forward(),
   address_domain,
   dropby_goto_domains,
   fwd,
   pretty_print,
   strings_to_forwards )
-import MxList ( MxList(..) )
+import MxList ( MxList( get_mxs ) )
 
 -- | Type synonym to make the signatures below a little more clear.
 --   WARNING: Also defined in the "Forward" module.
@@ -259,7 +261,7 @@ test_dropby_mxlist_compares_normalized =
     let droplist = ["mx.EXAMple.com", "mx2.example.COM"]
     let normal_droplist = map normalize_string droplist
     let actual = dropby_mxlist normal_droplist mx_map fwds
-    let expected = []
+    let expected = [] :: [Forward]
     actual @?= expected
   where
     desc = "dropby_mxlist only performs comparisons on normalized names"