some example program using the logger

[Francois]

Hi,

Thanks to all the feedback I got,
I could do what I want.
It compiles and runs properly.

Regards,
F.
---
module Log       = Async_extra.Log.Blocking
module LogLevel  = Async_extra.Log.Level
module LogOutput = Async_extra.Log.Blocking.Output

let main () =

  Log.set_level (LogLevel.of_string "Debug");
  Log.set_output LogOutput.screen;

  Log.raw   "%s" "raw log";
  Log.debug "%s" "debug log";
  Log.info  "%s" "info log";
  Log.error "%s" "error log";

  Printf.printf "a printf\n"
;;

main()
---

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.ocaml.org/pipermail/core/attachments/20121107/f3787ff7/attachment.html>