From 7dccbdf398b85df91737ab0faf4509315ee4e64d Mon Sep 17 00:00:00 2001 From: Michael Orlitzky 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