Source file `gather_path.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open! Core
open! Bonsai_private_base.Import
open! Bonsai_private_base

let f ~here =
  let run ~environment:_ ~fix_envs:_ ~path ~model:_ ~inject:_ =
    let result = Incr.return path in
    annotate ~here Path result;
    Trampoline.return
      (Snapshot.create ~here ~result ~input:Input.static ~lifecycle:None, ())
  in
  Trampoline.return
    (Computation.T
       { model = Meta.Model.unit
       ; input = Meta.Input.unit
       ; action = Action.Type_id.nothing
       ; apply_action = unusable_apply_action
       ; reset = reset_unit_model
       ; run
       ; may_contain =
           May_contain.Unresolved.non_recursive ~path:Yes_or_maybe ~lifecycle:No ~input:No
       })
;;