 (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


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

;; Routes ;;


(defn load-calendar! [path conn]
  (->> path
       (csv->maps calendar-header-keys calendar-val-transforms)
       (map (partial process-calendar-map calendar-days))
       (map assoc-temp-id)
       (d/transact conn)))

;; Shapes ;;
