diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-01-14 00:57:12 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-14 00:57:12 +1100 |
commit | cedc60f86a22eddef26d8db4cb3ec36d50a7fd75 (patch) | |
tree | 35dfaad94d48591c4aedba7eaf49bd943092de55 /src/Election.hs | |
parent | c0d0b285cf2a6d6151e66148a022d67d46daca31 (diff) |
Basic command line interface done
Diffstat (limited to 'src/Election.hs')
-rw-r--r-- | src/Election.hs | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/Election.hs b/src/Election.hs new file mode 100644 index 0000000..082ee4c --- /dev/null +++ b/src/Election.hs @@ -0,0 +1,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" + + |