 (register-sub
  :current-phase
  (fn [db]
-   (reaction (get-in @db [:phase]))))
+   (reaction (@db :phase))))
 
 (register-sub
  :valid-targets

(register-sub
 :debug-mode
 (fn [db]
   (reaction (get-in @db [::debug-mode?]))))

(register-sub
 :log

(register-sub
 :deck
 (fn [db]
   (reaction (@db :deck))))

(register-sub
 :burn-pile
 (fn [db]
   (reaction (@db :burn-pile))))

(register-sub
 :discard-pile
 (fn [db]
   (reaction (@db :discard-pile))))

(register-sub
 :current-player
 (fn [db]
   (reaction (@db :current-player))))

(register-sub
 :players
 (fn [db]
   (reaction
    (->> (@db :players)
         vals
         vec))))

