summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Election.hs3
1 files changed, 2 insertions, 1 deletions
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