package streamable

  1. Overview
  2. Docs
A collection of types suitable for incremental serialization.

Install 

dune-project
 Dependency

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

Authors

  1. J
    Jane Street Group, LLC

Maintainers

  1. J
    Jane Street developers

Sources

v0.17.1.tar.gz
md5=f8ef1a28079f4e6e6617ba2cfa51bc4e
sha512=2f56d8b10032756c3190b0e68094f0c89f96f9f3fc39d5a8c62f340abe837c7ba1c75f99c914213cbb6376dc6f3abac689110d18af226998bba4484dd9ff3c47

doc/src/ppx_streamable/atomic_clause.ml.html

Source file atomic_clause.ml

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

let maybe_match type_ (_ : Ctx.t) =
  let%bind core_type = Type_.match_core_type type_ in
  let%map () = Attribute.get Attributes.atomic core_type
  and longident_loc = Helpers.if_module_dot_t_then_module core_type in
  ({ children = []
   ; apply_functor =
       (fun ctx children ->
         assert (List.is_empty children);
         Helpers.apply_streamable_dot
           ctx
           ~functor_name:"Of_atomic"
           ~arguments:[ pmod_ident ~loc:ctx.loc longident_loc ])
   }
    : Clause.Match.t)
;;