let lexbuf_wrapper type_parser (_loc,s) = try type_parser Packages_lexer.token_deb (Lexing.from_string s) with Format822.Syntax_error (_msg, _) -> raise (Format822.Syntax_error (s, _loc))