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


;; --- Profile Updated

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


;; --- Update Photo

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