1 files changed, 15 insertions, 1 deletions
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
+
+