# Pastebin UhZQRUjf
module Lib
  (
    Ballot,
    Candidate,
    tally,
  ) where

newtype Candidate = Candidate {name :: String} deriving (Show, Eq)
newtype Ballot = Ballot { votes :: [Candidate] }
type Election = [Ballot]
type ElectionResult = [(Candidate, Int)]

tally :: Election -> ElectionResult
tally e =
  -- TODO: Count all the ballots
  [(Candidate "bbhoss", 100)]
-- someFunc :: IO ()
-- someFunc = putStrLn "someFunc"