diff --git a/src/handlers.clj b/src/handlers.clj index 74cae1d..a920116 100644 --- a/src/handlers.clj +++ b/src/handlers.clj @@ -142,9 +142,9 @@ (let [region_id (Integer/parseInt region_id) armies (Integer/parseInt armies) owner (owner_symbol state owner)] - (assoc-in state - [:regions region_id :owner] - owner))) + (-> state + (assoc-in [:regions region_id :owner] owner) + (assoc-in [:regions region_id :armies] armies)))) (reduce (fn [state region_id] (if (= :us (get-in state [:regions region_id :owner]))