From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 23 Apr 2014 00:56:06 +0000 (-0400)
Subject: Fix hlint suggestions.
X-Git-Tag: 0.0.3~18
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=commitdiff_plain;h=7dccbdf398b85df91737ab0faf4509315ee4e64d

Fix hlint suggestions.
---

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 6c8833c..578179e 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE DeriveDataTypeable #-}
-
 module CommandLine (
   get_args )
 where
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 =