From e9547849b87d078e476cdc10568559bf278dba7b Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 19 Jan 2017 22:50:37 +1100 Subject: Election functionality added, completely untested --- src/Counter.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'src/Counter.hs') diff --git a/src/Counter.hs b/src/Counter.hs index 021ac45..317f96a 100644 --- a/src/Counter.hs +++ b/src/Counter.hs @@ -3,7 +3,9 @@ module Counter( SenateCounter, createSenateCounter, - doCount + doCount, + getBallot, + getTotal ) where @@ -74,3 +76,15 @@ doCount sen criteria = do else return 0 + + +getBallot :: SenateCounter -> Typ.BelowLineBallot +getBallot = ballotMap + + + + +getTotal :: SenateCounter -> Int +getTotal = numBallots + + -- cgit