package streamable

You can search for identifiers within the package.

in-package search v0.2.0

A collection of types suitable for incremental serialization.

Install

Dune Dependency

github.com Changelog MIT License Edit opam file Versions (3)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

v0.17.0.tar.gz

sha256=4c59a31870f77b89727e2f986727a2ed865e8336df4b409b716dd6508d9b8a63

doc/src/ppx_streamable/type_.ml.html

Source file `type_.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
open! Base
open! Import

type t =
  | Type_declaration of type_declaration
  | Core_type of core_type
[@@deriving variants]

let loc = function
  | Type_declaration type_dec -> type_dec.ptype_loc
  | Core_type core_type -> core_type.ptyp_loc
;;

let human_readable_name = function
  | Type_declaration type_dec ->
    (match type_dec.ptype_manifest with
     | Some core_type -> string_of_core_type core_type
     | None -> type_dec.ptype_name.txt)
  | Core_type core_type -> string_of_core_type core_type
;;

let match_core_type = function
  | Type_declaration type_dec -> type_dec.ptype_manifest
  | Core_type core_type -> Some core_type
;;