From 7dccbdf398b85df91737ab0faf4509315ee4e64d Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 22 Apr 2014 20:56:06 -0400
Subject: [PATCH] Fix hlint suggestions.

---
 src/CommandLine.hs | 2 --
 src/Report.hs      | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

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 =
-- 
2.44.2