highScores :: State -> ActionM ()
highScores state = do
  scores <- liftIO $ Rep.getHighscores (Spiel.connectionPool state)
  render (ScoresView.render scores)
         

-- * Web-API Part
highScores :: State -> ActionM ()
highScores state = do
  scores <- liftIO $ Rep.getHighscores (Spiel.connectionPool state)
  render (ScoresView.render scores)
         

-- * Web-API Part
highScores state = do
  scores <- liftIO $ Rep.getHighscores (Spiel.connectionPool state)
  render (ScoresView.render scores)
         

-- * Web-API Part