1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(*---------------------------------------------------------------------------
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)
|
