 
 (defn- regular-season-game? [api-game]
   (= "R" (:game-type api-game)))
+
+(defn- all-star-game? [api-game]
+  (= "A" (:game-type api-game)))
+
+(defn- non-playoff-game? [api-game]
+  (or
+    (regular-season-game? api-game)
+    (all-star-game? api-game)))
 
 (defn- parse-goal-team [scoring-play team-details]
   (let [team-id (:id (:team scoring-play))

  (let [team-details (parse-game-team-details api-game)
        scores (parse-scores api-game team-details)
        teams (get-team-abbreviations team-details)
        game-details {:state (parse-game-state api-game)
                      :goals (parse-goals api-game team-details)
                      :scores scores
                      :teams teams
                      :records (parse-records team-details teams scores)}]
    (add-playoff-series-information api-game game-details)))

(defn parse-game-scores [date-and-api-games]

        wins-before-game (reduce-current-game-from-playoff-series-wins current-wins game-details)]
    {:wins wins-before-game}))

(defn- add-team-records [api-game game-details team-details teams scores]
  (if (all-star-game? api-game)
    game-details
    (assoc game-details :records (parse-records team-details teams scores))))

(defn- add-playoff-series-information [api-game game-details]
  (if (non-playoff-game? api-game)
    game-details
    (assoc game-details :playoff-series (parse-playoff-series-information api-game game-details))))

