Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defn index-file-with-writer [config-id index-writer fname]
(let [req-counter (ref 0)]
(do
(println (str "Parsing " fname))
(doall (map (partial process-request-log config-id index-writer)
(partition-by
#(if (. #^String % startsWith "Processing")
(dosync (alter req-counter inc))
(deref req-counter))
(line-seq (reader fname))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.