package streamable

  1. Overview
  2. Docs

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)
;;