                [[:error-in-code line (nth lines (dec line))]]
                [[:error-message nil
                  (breaker-line (nth lines (dec line))
-                               message
+                               (when-not (= environment :repl) message) 
                                (if (= line 1)
                                  (+ (repl-prompt-indent
                                      environment

    (assoc ex :message (first (string/split message #"in file")) )
    ex))

(defn breaker-message [message]
  (if message message "error starts here"))

(defn breaker-line [previous-line message column]
  (let [previous-line-start-pos (count (take-while #(= % \space) previous-line))]
    (cond
      column  (str (apply str (repeat (dec column)
                                      \space)) "^--- " (if message message "error starts here"))
      :else (str (apply str (repeat previous-line-start-pos \space)) (if message message "^^^^ error originates on line above ^^^^")))))



;; parse warnings

;;; --- WARNINGS

(defn extract-warning-data [warning-type env extra]
  (when (warning-type cljs.analyzer/*cljs-warnings*)
    (when-let [s (cljs.analyzer/error-message warning-type extra)]
      {:line   (:line env)
       :column (:column env)
       :ns     (-> env :ns :name)
       :file (if (= (-> env :ns :name) 'cljs.core)
               "cljs/core.cljs"
               ana/*cljs-file*)
       :message s
       :extra   extra})))

(defn parse-warning [{:keys [message warning-type
                             line column ns file message extra] :as warning}]
