src/Election.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

module Election(
    Election,

    createElection,
    doCount
    ) where


import qualified Counter as Sen


data Election = Election String


createElection :: FilePath -> Sen.SenateCounter -> IO Election
createElection outDir counter = return (Election "testcode")


doCount :: Election -> Int -> IO ()
doCount election numToElect =
    putStrLn "run election here"