 (defmethod cast-value :default [value _]
   value)
 
-(defn cast-data
+(defn- cast-data
   "Given the data from a CSV file and the definition of the data's columns,
 transform that data into the form we want."
   [data columns]

                               [(keyword (or (:name cdef) column))
                                (cast-value value cdef)]))) data))))

(defn read-csv-file
  "Reads an entire CSV file into memory as a seq of maps.
  The seq is fully realized because we have to in order to
  close the CSV. Therefore, this can suck up a lot of memory

    (map (fn [row]
             (assoc row lval (get rmap (get row lkey)))) left)))

(defn- load-csv-file
  [file collection transform-fn]
  (with-open [in-file (io/reader (io/resource file))]
    (let [csv (csv/read-csv in-file)
