   (db/init! (config :db-url)))
 
 (defn seed! []
-  (let [[group-1 group-2] (db/run-txns!
-                            (concat
-                              (group/create-group-txn {:id (db/uuid) :name "Braid"})
-                              (group/create-group-txn {:id (db/uuid) :name "Chat"})))
+  (let [_ (println "Create Groups")
+        [group-1 group-2]
+        (db/run-txns!
+          (concat
+            (group/create-group-txn {:id (db/uuid) :name "Braid"})
+            (group/create-group-txn {:id (db/uuid) :name "Chat"})))
+
+        _ (println "Create Users")
         [user-1 user-2]
         (db/run-txns!
           (concat

              (tag/user-subscribe-to-tag-txn (user-1 :id) (tag-2 :id))
              (tag/user-subscribe-to-tag-txn (user-2 :id) (tag-2 :id))))

        [msg1 msg2 msg3 msg4]
        (db/run-txns!
          (concat
            (message/create-message-txn {:id (db/uuid)
                                         :group-id (group-1 :id)
                                         :user-id (user-1 :id)
                                         :thread-id (db/uuid)
                                         :created-at (java.util.Date.)
                                         :content "Hello?"
                                         :mentioned-tag-ids [(tag-1 :id)]})
            (message/create-message-txn {:id (db/uuid)
                                         :group-id (group-1 :id)
                                         :thread-id (msg :thread-id)
                                         :user-id (user-2 :id)
                                         :created-at (java.util.Date.)
                                         :content "Hi!"})
            (message/create-message-txn {:id (db/uuid)
                                         :thread-id (msg :thread-id)
                                         :group-id (group-1 :id)
                                         :user-id (user-1 :id)
                                         :created-at (java.util.Date.)
                                         :content "Oh, great, someone else is here."})
            (message/create-message-txn {:id (db/uuid)
                                         :group-id (group-1 :id)
                                         :thread-id (msg :thread-id)
                                         :user-id (user-2 :id)
                                         :created-at (java.util.Date.)
                                         :content "Yep"})))

               :nickname "bar"
               :password "bar"
               :avatar "data:image/gif;base64,R0lGODlhAQABAPAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="})))

        _ (println "Add Users to Groups and Make Users Admins")
        _ (db/run-txns!
            (concat
              (group/user-add-to-group-txn (user-1 :id) (group-1 :id))
              (group/user-add-to-group-txn (user-2 :id) (group-1 :id))
              (group/user-add-to-group-txn (user-1 :id) (group-2 :id))
              (group/user-add-to-group-txn (user-2 :id) (group-2 :id))
              (group/user-make-group-admin-txn (user-1 :id) (group-1 :id))
              (group/user-make-group-admin-txn (user-2 :id) (group-2 :id))))

        _ (println "Create Tags")
        [tag-1 tag-2]
        (db/run-txns!
          (concat
            (tag/create-tag-txn {:id (db/uuid) :group-id (group-1 :id) :name "braid"})
            (tag/create-tag-txn {:id (db/uuid) :group-id (group-1 :id) :name "watercooler"})))

        _ (println "Subscribe Users to Tags")
        _ (db/run-txns!
            (concat
              (tag/user-subscribe-to-tag-txn (user-1 :id) (tag-1 :id))
