X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FReport.hs;fp=src%2FReport.hs;h=76373a7e49313bacdb0fc4ac36c25a1464f8980b;hb=7dccbdf398b85df91737ab0faf4509315ee4e64d;hp=db9c4ad584f0a67b379611685cfffc3d84138693;hpb=7a19ab91c57bfe9c3fb8a6e4105f300c7f638e2d;p=mailbox-count.git

diff --git a/src/Report.hs b/src/Report.hs
index db9c4ad..76373a7 100644
--- 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 =