           (.printStackTrace e)))
       (log/debug "Profile data for zid" (:zid conv) ": " prof))))
 
-;; XXX WIP; need to flesh out and think about all the ins and outs
+;; XXX This is temporary; should be switching to schema work in conversation ns
 ;; Also, should place this in conversation, but for now...
 (def Conversation
   "A schema for what valid conversations should look like (WIP)"

        (error-callback votes start-time (:opts' conv) e)
        conv))))


;; Maybe switch over to using this with arbitrary attrs map with zid and other data? XXX
;(defmacro try-with-error-log

  (let [rid (:rid report-data)
        tids (map :tid (postgres/query (:postgres conv-man) (postgres/report-tids rid)))
        corr-mat (corr/compute-corr conv tids)]
    (async/thread
      (postgres/insert-correlationmatrix! postgres rid corr-mat)
      ;; TODO update to submit usng task type and task bucket
      (postgres/mark-task-complete! postgres (-> report-data :task-record :rid)))))


;; Need to think about what to do if failed conversations lead to messages piling up in the message queue XXX
