 
 
 (s/defn to-update-event :- vs/UpdateEvent
-  "transform an object (generally a `StoredObject`) to an `UpdateEvent`"
-  [model :- {s/Any s/Any}
-   object :- {s/Any s/Any}
-   prev-object :- {s/Any s/Any}]
+  "transform an object (generally a `StoredObject`) to an `UpdateEvent`
+   the first argument `model` should generally be a schema of the form StoredX
+   the second and third arguments `object` and `prev-object`
+   should match the `model` schema."
+  [model object prev-object]
   {:owner (:owner object)
    :model model
    :timestamp (t/now)



(s/defn to-create-event :- vs/CreateEvent
  [model :-  {s/Any s/Any}
   object :- {s/Any s/Any}]
  {:owner (:owner object)
   :model model
   :timestamp (t/now)

   })

(s/defn to-delete-event :- vs/DeleteEvent
  "transform an object (generally a `StoredObject`) to its corresponding `Event`
   the first argument `model` should generally be a schema of the form StoredX
   the second argument `object` should match the `model` schema."
  [model object]
  {:owner (:owner object)
   :model model
   :timestamp (t/now)
