     :go-to-url s/Str
     :reserve s/Bool))
 
-(s/defn save-session-tags-to-redis
+(s/defn ^:always-validate save-session-tags-to-redis
   [pool :- SessionPool
    id :- s/Str
    tags]
   (car/wcar (:redis-conn pool)
     (sset-all (session-tags-key id) tags)))
 
-(s/defn save-session-diff-to-redis
+(s/defn ^:always-validate save-session-diff-to-redis
   [pool :- SessionPool
    id   :- s/Str
    session]

                 current-url nil
                 webdriver-id nil}
            :as modifications}]
  (info (format "Modifying session %s, %s" id (str modifications)))
  (when (view-model-exists? pool id)
    (if (or (not current-url)


(def ^:private  refresh-sessions-lock {})

(s/defn ^:always-validate refresh-sessions
  [pool :- SessionPool
   ids  :- [s/Str]]
  (locking refresh-sessions-lock
