syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Log.error

This commit is contained in:
Tony Garnock-Jones 2012-03-03 18:04:11 -05:00
parent 6175e40a1f
commit bf609e42ec
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
log.ml
View File

@ -15,3 +15,4 @@ let hook = ref write_to_log
let info message args = (!hook) "info" (Arr (Str message :: args))
let warn message args = (!hook) "warn" (Arr (Str message :: args))
let error message args = (!hook) "error" (Arr (Str message :: args))