Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pack error messages to boxes

master
Oxana 2019-08-14 22:51:35 +03:00
parent 3e728c3899
commit 8022638601
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
typing/includeclass.ml
View File

@ -102,11 +102,11 @@ let include_err ppf =
| CM_Hide_virtual (k, lab) ->
fprintf ppf "@[The virtual %s %s cannot be hidden@]" k lab
| CM_Public_method lab ->
fprintf ppf "The public method %s cannot become private" lab
fprintf ppf "@[The public method %s cannot become private@]" lab
| CM_Virtual_method lab ->
fprintf ppf "The virtual method %s cannot become concrete" lab
fprintf ppf "@[The virtual method %s cannot become concrete@]" lab
| CM_Private_method lab ->
fprintf ppf "The private method %s cannot become public" lab
fprintf ppf "@[The private method %s cannot become public@]" lab
let report_error ppf = function
| [] -> ()