git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@8376 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
757364e9a4
commit
db33d7e43c
|
@ -126,8 +126,8 @@ struct
|
|||
fun suffix sffx s = s ^ sffx
|
||||
|
||||
|
||||
fun mk_error_string s = ("Error: "^s) |> prefix_lines "*** " |> suffix "\n"
|
||||
fun mk_warn_string s = ("Warning: "^s) |> prefix_lines "### " |> suffix "\n"
|
||||
fun mk_error_string s = ("\nError:\n"^s) |> prefix_lines "*** " |> suffix "\n"
|
||||
fun mk_warn_string s = ("\nWarning:\n"^s) |> prefix_lines "### " |> suffix "\n"
|
||||
fun mk_info_string s = s |> prefix_lines "+++ " |> suffix "\n"
|
||||
fun mk_debug_string s = s |> prefix_lines "::: " |> suffix "\n"
|
||||
|
||||
|
|
Loading…
Reference in New Issue