       (merge
         (uc/initial-state Exercise nil)
         {::name    "reading-music"
-         ::options ::option-type-text}
-        props)))
+         ::options ::option-type-text} props)))
 
   static om/Ident
   (ident [_ props] [:exercise/by-name (::name props)])


  static IExercise
  (new-round [_ props]
    (let [type      (rand-nth ["major" "minor"])
          base-note (descriptor->value ["C3" ".." "F3"])]
      (assoc props
        ::notes (audio/chord base-note (type->arrengement type))

    (let [{::keys [options ex-answer ex-total-questions streak-count notes hints hints-used]
           :as    props} (om/props this)
          [opt-type _] (s/conform ::options options)
          parent (om/parent this)
          hints (hints props)
          check-answer #(do
                          (om/transact! parent `[(dcex/check-answer)
                                                 (untangled/load {:query [{:app/me ~(om/get-query UserScore)}] :marker false})]))]
