Clarify d/<connect.

This commit is contained in:
Richard Newman 2016-08-19 09:14:27 -07:00
parent 4fd5880a0b
commit d687d4221a

View file

@ -20,14 +20,9 @@
(defn <connect [uri] (defn <connect [uri]
;; Eventually, URI. For now, just a plain path (no file://). ;; Eventually, URI. For now, just a plain path (no file://).
(go-pair (go-pair
(-> (let [conn (<? (sqlite/<sqlite-connection uri))
(sqlite/<sqlite-connection uri) db (<? (db-factory/<db-with-sqlite-connection conn))]
(<?) (transact/connection-with-db db))))
(db-factory/<db-with-sqlite-connection)
(<?)
(transact/connection-with-db))))
(def <transact! transact/<transact!) (def <transact! transact/<transact!)