 
 (defn destroy-session
   [pool id & {:keys [immediately] :or [immediately true]}]
+  (s/validate SessionPool pool)
+  (s/validate s/Str id)
   (car/wcar (:redis-conn pool)
     (info (format "Destroying session %s..." id))
     (car/watch session-set-key)

               (map :url)
               (filter identity)
               (pmap #(selenium/session-ids-from-node %))
               (pmap #(if (not (view-model-exists? pool %))
                        (destroy-session pool %)))))))
    true))


   (s/optional-key :session) SessionInRedis
   (s/optional-key :node)    NodeInRedis})

(s/defn ^:always-validate old->new-session-model :- SessionAndNode
  [session-model :- OldSessionViewModel]
  (merge
    (select-keys session-model [:id])
