X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FReport.hs;h=82dd07bc8750944fc9e2f8c526005d4f3e9f69a3;hb=refs%2Fheads%2Fmaster;hp=297622c0856d00bec5017301bcb9ab4ada073f2b;hpb=d05ab6ff8485bca0eeb25ff49d7d9d459102e413;p=list-remote-forwards.git

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"