package ooh

  1. Overview
  2. Docs

Source file container.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(* SPDX-FileCopyrightText: Copyright (C) 2025 Stefan Muenzel
 * SPDX-License-Identifier: MPL-2.0
 *)

type ('container, 'cty) t = 'cty

let permanent = ()

let get (t : _ t) = t

module Packed = struct
  type ('container, 'cty) t' = ('container, 'cty) t

  type 'cty t = | T : ('container, 'cty) t' -> 'cty t
end

module Private = struct
  let create t = t
end