From 5f9750ca2c0c7ae744f35ec0949527f106c10099 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Fri, 20 Aug 2010 11:40:13 -0700
Subject: [PATCH] Modify session to report errors in an emacs-parser-friendlier
 way.

---
 src/boot/driver/session.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/boot/driver/session.ml b/src/boot/driver/session.ml
index d9e57b02ac2..d295763ac06 100644
--- a/src/boot/driver/session.ml
+++ b/src/boot/driver/session.ml
@@ -93,7 +93,7 @@ let string_of_pos (p:pos) =
 let string_of_span (s:span) =
     let (filename, line0, col0) = s.lo in
     let (_, line1, col1) = s.hi in
-    Printf.sprintf "%s:%d:%d - %d:%d" filename line0 col0 line1 col1
+    Printf.sprintf "%s:%d:%d:%d:%d" filename line0 col0 line1 col1
 ;;
 
 let filename_of (fo:filename option) : filename =
@@ -111,7 +111,7 @@ let report_err sess ido str =
         None ->
           fail sess "Error: %s\n%!" str
       | Some span ->
-          fail sess "%s:E:Error: %s\n%!"
+          fail sess "%s: error: %s\n%!"
             (string_of_span span) str
 ;;