21 lines
913 B
OCaml
21 lines
913 B
OCaml
(*---------------------------------------------------------------------------
|
|
Copyright (c) 2015 The logs programmers. All rights reserved.
|
|
SPDX-License-Identifier: ISC
|
|
---------------------------------------------------------------------------*)
|
|
|
|
open Js_of_ocaml
|
|
|
|
let main _ =
|
|
Logs.set_level @@ Some Logs.Debug;
|
|
Logs.set_reporter @@ Logs_browser.console_reporter ();
|
|
Logs.info (fun m -> m ~header:"START" ?tags:None "Starting main");
|
|
Logs.warn (fun m -> m "Hey be warned by %d." 7);
|
|
Logs.err (fun m -> m "Hey be errored.");
|
|
Logs.debug (fun m -> m "Would you mind to be debugged a bit ?");
|
|
Logs.app (fun m -> m "This is for the application console or stdout.");
|
|
Logs.app (fun m -> m ~header:"HEAD" "Idem but with a header");
|
|
Logs.err (fun m -> m "NO CARRIER");
|
|
Logs.info (fun m -> m "Ending main");
|
|
Js._false
|
|
|
|
let () = Js.Unsafe.set Dom_html.window "onload" (Dom_html.handler main)
|