(defn get-results [filename]
  (let [records (records-by-host (parse-file filename))]
    (into {} (for [[host host-records] records]
               [host
                (analyze (date-time 2012 5 4) host-records (records "titan"))]))))

(def results (get-results "../monitor/monitor_log.txt"))

==> CompilerException java.lang.IllegalArgumentException: Key must be integer, compiling:(run_monitor_parse_analyze.clj:14)