Permalink
Browse files

time load and invert

  • Loading branch information...
1 parent 46b2916 commit f800bfb0b60c2b66e390ea7923847195f218e56c @alexy committed Oct 26, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/load_data.clj
View
@@ -7,11 +7,11 @@
(defn load-graph [dreps-name]
"load one graph"
- (let [dreps (tokyo-read-reps dreps-name)]
+ (let [dreps (time (tokyo-read-reps dreps-name))]
(->> dreps (map (fn [[k v]] [k (into (sorted-map) v)])) (into {}))))
(defn load-graphs [dreps-name & [dments-name]]
(let [dreps (load-graph dreps-name)
- dments (if dments-name (load-graph dments-name)
- (invert-graph dreps))]
+ dments (time (if dments-name (load-graph dments-name)
+ (invert-graph dreps)))]
[dreps dments]))

0 comments on commit f800bfb

Please sign in to comment.