Source file `attributes.ml`

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

let atomic =
  Attribute.declare
    "streamable.atomic"
    Attribute.Context.core_type
    Ast_pattern.(pstr nil)
    ()
;;

let map_with_atomic_values =
  Attribute.declare
    "streamable.map_with_atomic_values"
    Attribute.Context.core_type
    Ast_pattern.(pstr nil)
    ()
;;