diff options
| author | Shaked Flur | 2017-12-16 16:41:23 +0000 |
|---|---|---|
| committer | Shaked Flur | 2017-12-16 16:41:23 +0000 |
| commit | d7ce278ada49cbfdeeec35d12f86bcea56b4a6c9 (patch) | |
| tree | 4f7536a2e9d74510fe8b911f10f7601b46d3df84 /src/reporting_basic.ml | |
| parent | 8dde03d441a322fc489e4d25e16cd75d02f64474 (diff) | |
compatibility with OCaml 4.06.0;
imported new version of PPrint (20171003)
Diffstat (limited to 'src/reporting_basic.ml')
| -rw-r--r-- | src/reporting_basic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/reporting_basic.ml b/src/reporting_basic.ml index 0a9a588f..e7812a63 100644 --- a/src/reporting_basic.ml +++ b/src/reporting_basic.ml @@ -152,9 +152,9 @@ let format_loc_source ff l = begin let (s, multi_line) = read_from_file_pos2 p1 p2 in if multi_line then - Format.fprintf ff " original input:\n%s\n" s + Format.fprintf ff " original input:\n%s\n" (Bytes.to_string s) else - Format.fprintf ff " original input: \"%s\"\n" s + Format.fprintf ff " original input: \"%s\"\n" (Bytes.to_string s) end | _ -> () |