From 5fe3502865a9d9e187bb9560dc42bb7a1439e588 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 29 Aug 2026 02:28:12 +0000 Subject: Identity mixins --- lib/kernel/Identity.ml | 7 +++++++ lib/kernel/Identity.mli | 5 +++++ 2 files changed, 12 insertions(+) create mode 100644 lib/kernel/Identity.ml create mode 100644 lib/kernel/Identity.mli (limited to 'lib/kernel') diff --git a/lib/kernel/Identity.ml b/lib/kernel/Identity.ml new file mode 100644 index 0000000..ce3d30c --- /dev/null +++ b/lib/kernel/Identity.ml @@ -0,0 +1,7 @@ +class type identity = object + method hash : Concepts.Hash.hash +end + +class of_id = object (self) + method hash = Oo.id self |> Concepts.Hash.hash_of_int +end diff --git a/lib/kernel/Identity.mli b/lib/kernel/Identity.mli new file mode 100644 index 0000000..cdf417c --- /dev/null +++ b/lib/kernel/Identity.mli @@ -0,0 +1,5 @@ +class type identity = object + method hash : Concepts.Hash.hash +end + +class of_id : identity -- cgit v1.2.3