         (when person
           (ui-person-form person))))))
 
-(defmethod m/mutate 'sample/add-phone [{:keys [state]} k {:keys [id person]}]
+(defn add-phone-mutation [{:keys [state]} k {:keys [id person]}]
   {:action (fn []
              (let [new-phone (uc/initial-state PhoneForm {:db/id id :phone/type :home :phone/number ""})
                    person-ident [:people/by-id person]

               (swap! state assoc-in phone-ident new-phone)
               (uc/integrate-ident! state phone-ident :append (conj person-ident :person/phone-numbers))))})

(defcard sample-form-1
  "This card shows a very simple form in action."
  (untangled-app Root)

(ns untangled.components.forms
  (:require-macros
    [untangled.client.cards :refer [untangled-app]]
    [devcards.core :as dc :refer [defcard defcard-doc]])
  (:require [clojure.string :as str]
            [om.dom :as dom]
            [om.next :as om :refer [defui]]
