From a466147461556b68e702368caee96c785d39b9d4 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 1 Feb 2017 06:59:42 +1100 Subject: Minor tweak of bulk exclusion logging --- src/Election.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Election.hs b/src/Election.hs index 8a0e4d0..f3b504e 100644 --- a/src/Election.hs +++ b/src/Election.hs @@ -363,7 +363,8 @@ excludeCandidates e = do then if (n > 0) then do MIO.liftIO $ Con.when (n > 1) $ do - let logmsg = "Bulk exclusion at logfile #" ++ show (getNextLogNum e) + let logmsg = "Bulk exclusion of " ++ show n ++ + " candidates at logfile #" ++ show (getNextLogNum e) IO.appendFile (getMainLog e) (logmsg ++ "\n") Con.when (isVerbose e) (IO.hPutStrLn IO.stderr logmsg) ET.left e -- cgit