runPlayerAction phase playerId game act = do
  phaseIs phase game
  playerIs playerId game
  getPlayerAction (act playerId game)

preSetupAction = runPlayerAction PreSetup
setupAction = runPlayerAction Setup