From 5a10527fcb129e02e7fa000be5f86b35486a06b9 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 24 Aug 2022 09:32:36 -0400 Subject: [PATCH] src/Report.hs: add a type annotation to hide a warning. --- src/Report.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" -- 2.44.2