diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/system.ml | 9 |
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 |
