{"body":"module Lib\n  (\n    Ballot,\n    Candidate,\n    tally,\n  ) where\n\nnewtype Candidate = Candidate {name :: String} deriving (Show, Eq)\nnewtype Ballot = Ballot { votes :: [Candidate] }\ntype Election = [Ballot]\ntype ElectionResult = [(Candidate, Int)]\n\ntally :: Election -> ElectionResult\ntally e =\n  -- TODO: Count all the ballots\n  [(Candidate \"bbhoss\", 100)]\n-- someFunc :: IO ()\n-- someFunc = putStrLn \"someFunc\"\n","name":"","extension":"hs","url":"https://www.irccloud.com/pastebin/UhZQRUjf","modified":1616097283,"id":"UhZQRUjf","size":411,"lines":18,"own_paste":false,"theme":"","date":1616097283}