 
 ;; --- 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}]


;; --- Fetch Profile

(defrecord FetchProfile []
  ptk/WatchEvent
  (watch [_ state s]
    (->> (rp/req :fetch/profile)


;; --- Profile Fetched

(deftype ProfileFetched [data]
  ptk/UpdateEvent
  (update [this state]
    (assoc state :profile data)))
