From 9f97cc8f2d761b8ee4d7ecdb6d49c5b5a917bc31 Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Fri, 19 Aug 2016 09:14:27 -0700
Subject: [PATCH] Clarify d/<connect.

---
 test/datomish/api.cljc | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/test/datomish/api.cljc b/test/datomish/api.cljc
index 1a8a50fe..2b9bfa1c 100644
--- a/test/datomish/api.cljc
+++ b/test/datomish/api.cljc
@@ -20,14 +20,9 @@
 (defn <connect [uri]
   ;; Eventually, URI.  For now, just a plain path (no file://).
   (go-pair
-    (->
-      (sqlite/<sqlite-connection uri)
-      (<?)
-
-      (db-factory/<db-with-sqlite-connection)
-      (<?)
-
-      (transact/connection-with-db))))
+    (let [conn (<? (sqlite/<sqlite-connection uri))
+          db (<? (db-factory/<db-with-sqlite-connection conn))]
+      (transact/connection-with-db db))))
 
 (def <transact! transact/<transact!)