aboutsummaryrefslogtreecommitdiffstats
path: root/lib/system.ml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/system.ml9
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