From 56492ad5f6f09d8c9f337d42803b64d1b9f0668b Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 27 Apr 2026 13:00:30 -0300 Subject: Introduce Multigroups (#65) --- lib/dcl/sublanguage.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/dcl/sublanguage.ml') diff --git a/lib/dcl/sublanguage.ml b/lib/dcl/sublanguage.ml index eab5ecb..7af0703 100644 --- a/lib/dcl/sublanguage.ml +++ b/lib/dcl/sublanguage.ml @@ -16,7 +16,9 @@ module Make (Storage : Management.Physical.S with type error = string) = struct let execute storage db ast = match Exec.execute storage db ast with - | Ok (db, msg) -> Ok (Sublanguage_types.Transition (db, msg)) + | Ok (Exec.DbResult (db, msg)) -> Ok (Sublanguage_types.Transition (db, msg)) + | Ok (Exec.Switch multigroup) -> Ok (Sublanguage_types.SessionSwitch multigroup) + | Ok (Exec.NewMultigroup name) -> Ok (Sublanguage_types.CreateMultigroup name) | Error e -> Error e let sexp_of_error = Exec.sexp_of_error -- cgit v1.2.3