setVotedFor :: Maybe nt -> Raft nt et rt mt ()
setVotedFor mvote = do
  _ <- rs.writeVotedFor ^$ mvote
  votedFor .= mvote
setVotedFor :: Maybe nt -> Raft nt et rt mt ()
setVotedFor mvote = do
  _ <- rs.writeVotedFor ^$ mvote
  votedFor .= mvote
setVotedFor mvote = do
  _ <- rs.writeVotedFor ^$ mvote
  votedFor .= mvote