 (defn- assoc-temp-id [m]
   (assoc m :db/id (d/tempid :db.part/user)))
 
-(defn csv->map
+(defn csv->maps
   "Create a transaction from csv found in path. header-map is a map of strings
   to keywords defining column to keyword mappings for the generated transaction
   map. transform-vals is a map of keywords to functions defining function

  {:route/agency #(vector :agency/id %)})

(defn load-routes! [path conn]
  (d/transact conn (csv->map routes-header-keys routes-val-transforms path)))

;; Stops ;;
;;;;;;;;;;;


(defn load-agency! [path conn]
  (->> path
       (csv->maps agency-header-keys {})
       (map assoc-temp-id)
       (d/transact conn)))

;; Routes ;;
