getPlayers :: State -> ActionM ()
getPlayers state = do
  players <- liftIO $ Rep.getPlayers (Spiel.connectionPool state)
  localhost <- isLocalhost
  if not localhost
    then raise "you are not allowed to do that"
    else json players
getPlayers :: State -> ActionM ()
getPlayers state = do
  players <- liftIO $ Rep.getPlayers (Spiel.connectionPool state)
  localhost <- isLocalhost
  if not localhost
    then raise "you are not allowed to do that"
    else json players
getPlayers state = do
  players <- liftIO $ Rep.getPlayers (Spiel.connectionPool state)
  localhost <- isLocalhost
  if not localhost
    then raise "you are not allowed to do that"
    else json players