mikros/rust
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modify session to report errors in an emacs-parser-friendlier way.

Browse Source
This commit is contained in:
Graydon Hoare 2010-08-20 11:40:13 -07:00
parent 4c28d9a54a
commit 5f9750ca2c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/driver/session.ml
View File

@ -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
;;