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

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

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

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

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

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


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

(register-sub
 :valid-targets
