diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-02-01 06:59:42 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-01 06:59:42 +1100 |
| commit | a466147461556b68e702368caee96c785d39b9d4 (patch) | |
| tree | ed4b05015736af4f19cc90ca16c2d43a0fbbd791 /src | |
| parent | ca7337e57786a0db79865d63e797b574942795e0 (diff) | |
Minor tweak of bulk exclusion logging
Diffstat (limited to 'src')
| -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 |