From e3d3e20dfea253de291d5b31059cd55c0eaabf02 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 11 May 2026 23:10:27 -0300 Subject: Multigroup unified reference for hierarchical access --- lib/system.ml | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'lib/system.ml') diff --git a/lib/system.ml b/lib/system.ml index 40adf82..4c4e4b5 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -67,15 +67,8 @@ let assemble (config : Configuration.t) : (unit -> unit, string) result = let* packed_transport = transport_provider transport_body in let (StorageParcel ((module S), storage)) = packed_storage in let (TransportParcel ((module T), transport)) = packed_transport in - let module C = Catalog.Make (S) in - let* catalog = - C.create storage ~prelude_relations:Prelude.Standard.prelude_relations - in let module L = Listener.Make (T) (S) in - Ok - (fun () -> - Scl.Executor.set_sessions (Session.create ()); - L.run transport catalog storage) + Ok (fun () -> L.run transport storage) let run_from_config (path : string) : (unit -> unit, string) result = let ( let* ) = Result.bind in -- cgit v1.2.3