Fix hlint suggestions.

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 6c8833c9f53390f15ec58d61a05d2fd5fb76a56e..578179e9add1c60af9d7421d62bbefd821ccdf78 100644 (file)
--- 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 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 =