Initial commit

1 files changed, 28 insertions, 0 deletions

diff --git a/src/senate.hs b/src/senate.hs
new file mode 100644
index 0000000..8f24d88
--- /dev/null
+++ b/src/senate.hs
@@ -0,0 +1,28 @@
+module Senate(
+    SenateCounter,
+    createSenateCounter,
+    doCount
+    ) where
+
+
+
+import qualified System.IO as IO
+import qualified SenateTypes as STY
+import qualified CSV as CSV
+
+
+
+data SenateCounter = SenateCounter { inputData : IO.FilePath
+                                   , upperMap  : STY.UpperMap
+                                   , lowerMap  : STY.LowerMap }
+
+
+
+createSenateCounter :: IO.FilePath -> STY.UpperMap -> STY.LowerMap -> SenateCounter
+createSenateCounter = SenateCounter
+--  use this function to errorcheck the input data
+
+
+
+doCount :: SenateCounter -> STY.Trace -> Int
+