package ppx_log

You can search for identifiers within the package.

in-package search v0.2.0

Ppx_sexp_message-like extension nodes for lazily rendering log messages

Install

Dune Dependency

github.com Readme MIT License Edit opam file Versions (4)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

ppx_log-v0.14.0.tar.gz

sha256=13e3f937caa8a53dd8e2a297a5531595011ac5e237a1cf06117c9fb17d9bf851

md5=0f85a9703c8265262a21e5010a5dcdd2

doc/src/ppx_log.async/ppx_log_async.ml.html

Source file `ppx_log_async.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
open Async_unix

module T = struct
  type t = Async_unix.Log.t
  type return_type = unit

  let would_log = Log.would_log
  let sexp ?level t msg = Log.sexp ?level t msg
  let default = ()
end

module Ppx_log_syntax = struct
  include T

  module Global = struct
    type return_type = unit

    let default = ()
    let would_log = Log.Global.would_log
    let sexp ?level msg = Log.Global.sexp ?level msg
  end
end

module No_global = struct
  module Ppx_log_syntax = struct
    include T

    module Global = struct
      type return_type = [ `Do_not_use_because_it_will_not_log ]

      let default = `Do_not_use_because_it_will_not_log
      let would_log _ = false
      let sexp ?level:_ _ = `Do_not_use_because_it_will_not_log
    end
  end
end