         (get-or-set! coll-atom key))))
 
 
-(defn prep-for-uploading-bidToPid-mapping [results]
+(defn prep-bidToPid [results]
   {"bidToPid" (:bid-to-pid results)})
 
 

      (apply assoc-in-bc this-part kvs))))


(defn prep-for-uploading-to-client [results]
  (let [base-clusters (:base-clusters results)]
    (-> results
      ; REFORMAT BASE CLUSTERS

        :n-cmts
        :pca
        :repness
        :zid
        :user-vote-counts
        :votes-base}))))


(defn format-for-mongo [prep-fn conv lastVoteTimestamp]
  (-> conv
    prep-fn
    ; core.matrix & monger workaround: convert to str with cheshire then back
    ch/generate-string
    ch/parse-string
    (assoc
      "lastVoteTimestamp" lastVoteTimestamp)))


