 
 ;; --- Profile Updated
 
-(defrecord ProfileUpdated [data]
+(deftype ProfileUpdated [data]
   ptk/WatchEvent
   (watch [_ state s]
     (rx/of (profile-fetched data)


;; --- Update Profile

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


;; --- Update Photo

(deftype UpdatePhoto [file done]
  ptk/WatchEvent
  (watch [_ state stream]
    (->> (rp/req :update/profile-photo {:file file})
