         (concat [^{:key "1-nil"}[:option ""]]
                 (map (fn [{:keys [name]}]
                        ^{:key name}[:option name])
-                     (parse-json @players))))]]
+                     @players)))]]
      [:li (str "Player 2: ")
       [:select {:id "player2"
                 :value @player2

  [:div
   @message
   [:div
    [:span "Player 1: " (remaining-points (get @game 0) (:starting-score @game))]
    [:br]
    [:span "Player 2: " (remaining-points (get @game 1) (:starting-score @game))]]
   [:div
    [:br ]
    (str "Player " (+ 1 @current-player) " turn")

                (map (fn [{:keys [name]}]
                       (when (not= @player1 name)
                         ^{:key name}[:option name]))
                     @players)))]]]
    [select-game-pane]]
   (when (both-players-selected?)
     [:div
