diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 23:24:19 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-04-27 23:24:19 -0300 |
| commit | 97960adb8426e5270fe16b027e82a2c61674f821 (patch) | |
| tree | 03da5611898c06cd3868d4384ef4259005a29b69 /lib/dcl/sublanguage.ml | |
| parent | 56492ad5f6f09d8c9f337d42803b64d1b9f0668b (diff) | |
| download | Sakura-97960adb8426e5270fe16b027e82a2c61674f821.tar.gz Sakura-97960adb8426e5270fe16b027e82a2c61674f821.zip | |
Foreign call PRL (#67)
Diffstat (limited to 'lib/dcl/sublanguage.ml')
| -rw-r--r-- | lib/dcl/sublanguage.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/dcl/sublanguage.ml b/lib/dcl/sublanguage.ml index 7af0703..ecd2e60 100644 --- a/lib/dcl/sublanguage.ml +++ b/lib/dcl/sublanguage.ml @@ -16,7 +16,7 @@ module Make (Storage : Management.Physical.S with type error = string) = struct let execute storage db ast = match Exec.execute storage db ast with - | Ok (Exec.DbResult (db, msg)) -> Ok (Sublanguage_types.Transition (db, msg)) + | Ok (Exec.DbResult (db, _)) -> Ok (Sublanguage_types.Transition db) | Ok (Exec.Switch multigroup) -> Ok (Sublanguage_types.SessionSwitch multigroup) | Ok (Exec.NewMultigroup name) -> Ok (Sublanguage_types.CreateMultigroup name) | Error e -> Error e |