diff options
Diffstat (limited to 'lib/icl/sublanguage.ml')
| -rw-r--r-- | lib/icl/sublanguage.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/icl/sublanguage.ml b/lib/icl/sublanguage.ml index fdf17b3..c415d96 100644 --- a/lib/icl/sublanguage.ml +++ b/lib/icl/sublanguage.ml @@ -16,7 +16,7 @@ module Make (Storage : Management.Physical.S) = struct let execute storage db ast = match Exec.execute storage db ast with - | Ok (db, msg) -> Ok (Sublanguage_types.Transition (db, msg)) + | Ok (db, _) -> Ok (Sublanguage_types.Transition db) | Error e -> Error e let sexp_of_error = Exec.sexp_of_error |