diff options
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 | _ -> () |