From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 24 Aug 2022 13:32:36 +0000 (-0400)
Subject: src/Report.hs: add a type annotation to hide a warning.
X-Git-Tag: 0.0.2~9
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;ds=sidebyside;h=5a10527fcb129e02e7fa000be5f86b35486a06b9;p=list-remote-forwards.git

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

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"