evalFormula :: State -> ActionM ()
evalFormula state = do
  formula <- param "formula"
  pl <- Players.registeredPlayer state
  case pl of
    Just pl' -> do
      att <- liftIO $ Spiel.versuchHinzufuegen (Spiel.aktuellePhase state) (Rep.setPlayerScore (Spiel.connectionPool state)) pl' formula
      json att
    Nothing -> raise "kein Spieler registriert"

-- * Helpers

-- ** rendering
evalFormula :: State -> ActionM ()
evalFormula state = do
  formula <- param "formula"
  pl <- Players.registeredPlayer state
  case pl of
    Just pl' -> do
      att <- liftIO $ Spiel.versuchHinzufuegen (Spiel.aktuellePhase state) (Rep.setPlayerScore (Spiel.connectionPool state)) pl' formula
      json att
    Nothing -> raise "kein Spieler registriert"

-- * Helpers

-- ** rendering
evalFormula state = do
  formula <- param "formula"
  pl <- Players.registeredPlayer state
  case pl of
    Just pl' -> do
      att <- liftIO $ Spiel.versuchHinzufuegen (Spiel.aktuellePhase state) (Rep.setPlayerScore (Spiel.connectionPool state)) pl' formula
      json att
    Nothing -> raise "kein Spieler registriert"

-- * Helpers

-- ** rendering