From 68d3425112b82dd99bc803f836bd3c8844b93e2c Mon Sep 17 00:00:00 2001 From: polwex Date: Sun, 15 Jun 2025 00:50:22 +0700 Subject: progress progress --- bs5/server/fref/FunctionReferences.ml | 5 +++++ bs5/server/fref/FunctionReferences.mli | 1 + bs5/server/fref/dune | 3 +++ 3 files changed, 9 insertions(+) create mode 100644 bs5/server/fref/FunctionReferences.ml create mode 100644 bs5/server/fref/FunctionReferences.mli create mode 100644 bs5/server/fref/dune (limited to 'bs5/server/fref') diff --git a/bs5/server/fref/FunctionReferences.ml b/bs5/server/fref/FunctionReferences.ml new file mode 100644 index 0000000..e0da7c3 --- /dev/null +++ b/bs5/server/fref/FunctionReferences.ml @@ -0,0 +1,5 @@ +type t = (string, ReactServerDOM.server_function) Hashtbl.t + +let registry = Hashtbl.create 10 +let register = Hashtbl.add registry +let get = Hashtbl.find_opt registry diff --git a/bs5/server/fref/FunctionReferences.mli b/bs5/server/fref/FunctionReferences.mli new file mode 100644 index 0000000..74fa681 --- /dev/null +++ b/bs5/server/fref/FunctionReferences.mli @@ -0,0 +1 @@ +include ReactServerDOM.FunctionReferences diff --git a/bs5/server/fref/dune b/bs5/server/fref/dune new file mode 100644 index 0000000..7d7744d --- /dev/null +++ b/bs5/server/fref/dune @@ -0,0 +1,3 @@ +(library + (name function_references) + (libraries server-reason-react.reactDom)) -- cgit v1.2.3