let
no_matching_variant_found loc sexp =
of_sexp_error (loc ^
": no matching variant found"
) sexp