 (register-sub
  :deck
  (fn [db]
-   (reaction (get-in @db [:deck]))))
+   (reaction (@db :deck))))
 
 (register-sub
  :burn-pile
  (fn [db]
-   (reaction (get-in @db [:burn-pile]))))
+   (reaction (@db :burn-pile))))
 
 (register-sub
  :discard-pile
  (fn [db]
-   (reaction (get-in @db [:discard-pile]))))
+   (reaction (@db :discard-pile))))
 
 (register-sub
  :current-player
  (fn [db]
-   (reaction (get-in @db [:current-player]))))
+   (reaction (@db :current-player))))
 
 (register-sub
  :players
  (fn [db]
    (reaction
-    (->> (get-in @db [:players])
+    (->> (@db :players)
          vals
          vec))))
 

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

(register-sub
 :valid-targets

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

(register-sub
 :log
