diff options
Diffstat (limited to 'src/Election.hs')
| -rw-r--r-- | src/Election.hs | 3 |
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 |