Fix hlint suggestions.

[mailbox-count.git] / src / Report.hs

diff --git a/src/Report.hs b/src/Report.hs
index db9c4ad584f0a67b379611685cfffc3d84138693..76373a7e49313bacdb0fc4ac36c25a1464f8980b 100644 (file)
--- a/src/Report.hs
+++ b/src/Report.hs
@@ -162,8 +162,8 @@ report_summary conn = do
 --   fromList [("example.com",["user2","user1"]),("example.net",["user3"])]
 --
 construct_domain_user_map :: [DomainUser] -> DomainUserMap
-construct_domain_user_map dus =
-  foldl' append_this_du Map.empty dus
+construct_domain_user_map =
+  foldl' append_this_du Map.empty
   where
     append_func :: Username -> (Maybe [Username]) -> (Maybe [Username])
     append_func user maybe_userlist =