package tiny_httpd

  1. Overview
  2. Docs
package tiny_httpd
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file Tiny_httpd_log.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# 1 "src/Tiny_httpd_log.logs.ml"
(* Use Logs *)

module Log = (val Logs.(src_log @@ Src.create "tiny_httpd"))

let info k = Log.info (fun fmt -> k (fun x -> fmt ?header:None ?tags:None x))
let debug k = Log.debug (fun fmt -> k (fun x -> fmt ?header:None ?tags:None x))
let error k = Log.err (fun fmt -> k (fun x -> fmt ?header:None ?tags:None x))

let setup ~debug () =
  Logs.set_reporter @@ Logs.format_reporter ();
  Logs.set_level ~all:true
    (Some
       (if debug then
         Logs.Debug
       else
         Logs.Info))

let dummy = false