forked from
anil.recoil.org/monopam-myspace
My aggregated monorepo of OCaml code, automaintained
Add hand-written day11_layer.ml wrapper module
Expose Layer.t as Day11_layer.t at the top level so callers can
use Day11_layer.of_hash, Day11_layer.is_ok etc. directly.
Re-exports all submodules explicitly.
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
+31
+30
day11/layer/day11_layer.ml
+30
day11/layer/day11_layer.ml
···
1
+
(** Content-addressed layer storage.
2
+
3
+
A layer is a directory on disk identified by its content hash.
4
+
It contains:
5
+
- [fs/] — the filesystem tree (overlayfs upper)
6
+
- [layer.json] — metadata ({!Meta.t})
7
+
- [layer.log] — build stdout/stderr
8
+
- optional sidecar files ([build.json], [doc.json], etc.) *)
9
+
10
+
(** {1 Core type} *)
11
+
12
+
type t = Layer.t = {
13
+
hash : string;
14
+
dir : Fpath.t;
15
+
}
16
+
17
+
include (Layer : module type of Layer with type t := t)
18
+
19
+
(** {1 Modules} *)
20
+
21
+
module Base = Base
22
+
module Dir = Dir
23
+
module Hash = Hash
24
+
module Import = Import
25
+
module Last_used = Last_used
26
+
module Layer = Layer
27
+
module Meta = Meta
28
+
module Scan = Scan
29
+
module Stack = Stack
30
+
module Symlinks = Symlinks