Multigroup unified reference for hierarchical access

1 files changed, 1 insertions, 8 deletions

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