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 Changelog MIT License Edit opam file Versions (4)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

v0.17.0.tar.gz

sha256=2208f047b699d0661e94415868e8e9e4a6e5287a8eceaf7318f572ccd622859a

doc/src/ppx_log_kernel/optional_arg.ml.html

Source file `optional_arg.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Base
open! Import
open Ppxlib

type t = [ `Labelled of expression | `Optional of expression ] option

let of_optional_expr = Option.map ~f:(fun e -> `Optional e)

let to_expr t ~loc =
  match t with
  | None -> [%expr None]
  | Some (`Optional v) -> v
  | Some (`Labelled v) -> [%expr Some [%e v]]
;;

let to_arg t ~name =
  Option.map t ~f:(function
    | `Optional expr -> Optional name, expr
    | `Labelled expr -> Labelled name, expr)
;;