path: root/lib/error.ml

(** Error types for manipulation operations *)
type t =
  | RelationNotFound of string
  | RelationAlreadyExists of string
  | TupleNotFound of Conventions.Hash.t
  | DuplicateTuple of Conventions.Hash.t
  | ConstraintViolation of string
  | StorageError of string
  | UnrecognizedSublanguage of string
  | MalformedExpression of Sexplib.Sexp.t
  (* TODO: think of a better way to manage and serialize sublanguage errors *)
  | SublanguageError of Sexplib.Sexp.t
  | Conflict of {
      old_db : Management.Multigroup.multigroup;
      new_db : Management.Multigroup.multigroup;
    }
  | SyntaxError of string
  | MultigroupNotFound of string

let sexp_of_error e =
  let open Sexplib.Sexp in
  let error e ps = List (Atom e :: ps) in
  let ( <+> ) key value = List [ Atom key; value ] in
  match e with
  (* TODO: think of a subset of common attributes that every error should have (message, etc)? *)
  | RelationNotFound s -> error "relation-not-found" [ "relation" <+> Atom s ]
  | RelationAlreadyExists s ->
      error "relation-already-exists" [ "relation" <+> Atom s ]
  | TupleNotFound h -> error "tuple-not-found" [ "hash" <+> Atom h ]
  | DuplicateTuple h -> error "duplicate-tuple" [ "hash" <+> Atom h ]
  | ConstraintViolation s ->
      error "constraint-violation" [ "message" <+> Atom s ]
  | StorageError s -> error "storage-error" [ "message" <+> Atom s ]
  | UnrecognizedSublanguage s ->
      error "unrecognized-sublanguage" [ "tag" <+> Atom s ]
  | 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" <+> Atom old_db#name; "new" <+> Atom new_db#name ]