         ;; DEBUG (pprint/pprint [url req res])
         res)
       (catch ConnectException e {:status :ConnectException})
+      (catch SocketException e {:status :SocketException})
       (catch NoHttpResponseException e {:status :NoHttpResponseException}))))
 
 (defn da-write! [node value]

            [jepsen.checker.timeline :as timeline]
            [jepsen.os.debian :as debian]
            [knossos.model :as model])
  (:import (java.net ConnectException))
  (:import (org.apache.http NoHttpResponseException)))

(defn da-setup-schema []
  (let [uri "datomic:sql://tester?jdbc:postgresql://postgres:5432/datomic?user=datomic&password=datomic"

        ;; DEBUG (pprint/pprint [url req res])
        res)
      (catch ConnectException e {:status :ConnectException})
      (catch SocketException e {:status :SocketException})
      (catch NoHttpResponseException e {:status :NoHttpResponseException}))))

(defn member? [elt col] (some #(= elt %) col))
