 
 ;; --- Update Profile
 
-(defrecord UpdateProfile [data on-success on-error]
+(deftype UpdateProfile [data on-success on-error]
   ptk/WatchEvent
   (watch [_ state s]
     (letfn [(handle-error [{payload :payload}]


;; --- Update Password (Form)

(defrecord UpdatePassword [data]
  ptk/WatchEvent
  (watch [_ state s]
    (let [params {:old-password (:old-password data)


;; --- Profile Updated

(deftype ProfileUpdated [data]
  ptk/WatchEvent
  (watch [_ state s]
    (rx/of (profile-fetched data)
