   (if-let [{:keys [line column value path loc]}
            (inline-missing-keys? e)]
     (do
-      (println "File:" (str (:strictly-specking.core/file-source e)))
+      (println (file-line (:strictly-specking.core/file-source e) line column))
       (-> (cp/fetch-lines (:strictly-specking.core/file-source e))
           (cp/number-lines)
           (cp/insert-message line column

;; really need to move this towards the same interface as above
;; if there is a file on the error we will display it in context of the file

(defn pprint-in-file [file base-path key-message-map]
  (let [[k message] (first key-message-map) 
        path        (conj (vec base-path) k)]
    (when-let [{:keys [line column value path loc]}
               (edn-string-nav/get-path-in-clj-file path file)]
      (println "File:" (str file))
      (cp/print-message-in-context-of-file file line column message)
      true)))


    (if (coll? val)
      (str "\n" (indent-lines 2 formatted))
      formatted)))


(defmulti error-message :strictly-specking.core/error-type)

