diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 13:00:30 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-04-27 13:00:30 -0300 |
| commit | 56492ad5f6f09d8c9f337d42803b64d1b9f0668b (patch) | |
| tree | 0a41825d319fe47e037e2e30ed515c3c2d9b0d7d /lib/error.ml | |
| parent | 12f170f438f5909511da2f26c5d33a85acc1fe64 (diff) | |
| download | Sakura-56492ad5f6f09d8c9f337d42803b64d1b9f0668b.tar.gz Sakura-56492ad5f6f09d8c9f337d42803b64d1b9f0668b.zip | |
Introduce Multigroups (#65)
Diffstat (limited to 'lib/error.ml')
| -rw-r--r-- | lib/error.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/error.ml b/lib/error.ml index edaa85b..09b2e53 100644 --- a/lib/error.ml +++ b/lib/error.ml @@ -13,6 +13,7 @@ type t = | SublanguageError of Sexplib.Sexp.t | Conflict of { old_db : Management.Database.t; new_db : Management.Database.t} | SyntaxError of string + | MultigroupNotFound of string let sexp_of_error e = let open Sexplib.Sexp in @@ -30,5 +31,6 @@ let sexp_of_error e = | MalformedExpression s -> error "malformed-expression" ["expression" <+> s] | SublanguageError s -> error "sublanguage-error" ["error" <+> s] | SyntaxError s -> error "syntax-error" ["message" <+> (Atom s)] + | MultigroupNotFound s -> error "multigroup-not-found" ["name" <+> (Atom s)] | Conflict { old_db; new_db } -> error "conflict" ["old-hash" <+> (Atom old_db.hash); "new-hash" <+> (Atom new_db.hash)] |