src/Report.hs: add a type annotation to hide a warning.

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

diff --git a/src/Report.hs b/src/Report.hs
index 297622c0856d00bec5017301bcb9ab4ada073f2b..0f77f511448014e3a05572da885be4f94f29650a 100644 (file)
--- 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"