X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FReport.hs;fp=src%2FReport.hs;h=0f77f511448014e3a05572da885be4f94f29650a;hp=297622c0856d00bec5017301bcb9ab4ada073f2b;hb=5a10527fcb129e02e7fa000be5f86b35486a06b9;hpb=5e7c6ee66d7d3efbc48b16f81dcfd2e59c84a9da

diff --git a/src/Report.hs b/src/Report.hs
index 297622c..0f77f51 100644
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -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"