X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FReport.hs;h=0f77f511448014e3a05572da885be4f94f29650a;hb=HEAD;hp=96a3e3b1a3c05cbf0d011c1eaba466906e2ed901;hpb=1cda745aadadc29c5af77f656fe0fde773ad118e;p=list-remote-forwards.git

diff --git a/src/Report.hs b/src/Report.hs
index 96a3e3b..0f77f51 100644
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -28,13 +28,13 @@ import DNS (
   mx_set_map,
   normalize_string )
 import Forward (
-  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.
@@ -261,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"