   "Returns the application's root class."
   [app]
   (-> app :config :root-class))
+
+(defn- unwrap-route [route]
+  (cond-> route
+    (util/unique-ident? route) first))
 
 (defn- make-root-class
   [{:keys [routes wrapper]}]

(defmethod read [:default ::route-data]
  [{:keys [state target ast user-parser] :as env} key params]
  (let [st @state
        route (get st ::route)
        route (cond-> route
                (util/unique-ident? route) first)
        query (infer-query env route)
        ret (user-parser env query target)]
    (when-not (empty? ret)


(defn compassus-merge
  [reconciler state res query]
  (let [route (unwrap-route (get state ::route))]
    (om/default-merge reconciler state (get res route) query)))

(defn- process-reconciler-opts
