Can't get custom error messages to work. about pegtl HOT 8 CLOSED

#include "tao_dev/pegtl.hpp"

namespace row
{

	namespace pegtl = tao::pegtl;
	namespace pegtl8 = tao::pegtl::utf8;
	
	//reserved words
	struct DATA : TAO_PEGTL_ISTRING("data_") {};

	struct non_blank_char : pegtl8::ranges<0x0021, 0x007E, 0x00A0, 0xD7FF, 0xE000, 0xFDCF, 0xFDF0, 0xFFFD, 0x10000, 0x1FFFD, 0x20000, 0x2FFFD, 0x30000, 0x3FFFD, 0x40000, 0x4FFFD, 0x50000, 0x5FFFD, 0x60000, 0x6FFFD, 0x70000, 0x7FFFD, 0x80000, 0x8FFFD, 0x90000, 0x9FFFD, 0xA0000, 0xAFFFD, 0xB0000, 0xBFFFD, 0xC0000, 0xCFFFD, 0xD0000, 0xDFFFD, 0xE0000, 0xEFFFD, 0xF0000, 0xFFFFD, 0x100000, 0x10FFFD> {};
	struct restrict_char : pegtl8::ranges<0x0021, 0x005A, 0x005C, 0x005C, 0x005E, 0x007A, 0x007C, 0x007C, 0x007E, 0x007E, 0x00A0, 0xD7FF, 0xE000, 0xFDCF, 0xFDF0, 0xFFFD, 0x10000, 0x1FFFD, 0x20000, 0x2FFFD, 0x30000, 0x3FFFD, 0x40000, 0x4FFFD, 0x50000, 0x5FFFD, 0x60000, 0x6FFFD, 0x70000, 0x7FFFD, 0x80000, 0x8FFFD, 0x90000, 0x9FFFD, 0xA0000, 0xAFFFD, 0xB0000, 0xBFFFD, 0xC0000, 0xCFFFD, 0xD0000, 0xDFFFD, 0xE0000, 0xEFFFD, 0xF0000, 0xFFFFD, 0x100000, 0x10FFFD> {};
	struct lead_char : pegtl8::ranges<0x0021, 0x0021, 0x0025, 0x0026, 0x0028, 0x005A, 0x005C, 0x005C, 0x005E, 0x005E, 0x0060, 0x007A, 0x007C, 0x007C, 0x007E, 0x007E, 0x00A0, 0xD7FF, 0xE000, 0xFDCF, 0xFDF0, 0xFFFD, 0x10000, 0x1FFFD, 0x20000, 0x2FFFD, 0x30000, 0x3FFFD, 0x40000, 0x4FFFD, 0x50000, 0x5FFFD, 0x60000, 0x6FFFD, 0x70000, 0x7FFFD, 0x80000, 0x8FFFD, 0x90000, 0x9FFFD, 0xA0000, 0xAFFFD, 0xB0000, 0xBFFFD, 0xC0000, 0xCFFFD, 0xD0000, 0xDFFFD, 0xE0000, 0xEFFFD, 0xF0000, 0xFFFFD, 0x100000, 0x10FFFD> {};

	//Whitespace, and comments
	struct line_term : pegtl::sor<pegtl::seq<pegtl::one<'\r'>, pegtl::opt<pegtl::one<'\n'>>>, pegtl::one<'\n'>> {};
	struct comment : pegtl::if_must<pegtl::one<'#'>, pegtl::until<pegtl::eolf>> {};
	struct ws : pegtl::blank {};
	struct wschar : pegtl::sor<ws, line_term> {};
	struct whitespace : pegtl::plus<pegtl::sor<wschar, comment>> {};
	struct ws_or_eof : pegtl::sor<whitespace, pegtl::eof> {};

	//unquoted string
	struct unquoted_string : pegtl::seq<lead_char, pegtl::star<restrict_char>> {};

	//other values
	struct lst;
	struct value : pegtl::sor<unquoted_string, lst> {};

	//List
	struct lst_begin : pegtl::one<'['> {};
	struct lst_end : pegtl::one<']'> {};
	struct lst_value : value {};
	struct lst_values : pegtl::opt<pegtl::opt<whitespace>, lst_value, pegtl::star<whitespace, lst_value>> {};
	struct lst : pegtl::if_must<lst_begin, lst_values, /*pegtl::opt<whitespace>,*/ lst_end> {}; //rule is broken to test error messages

	//Actions:
	template<typename Rule>
	struct action : pegtl::nothing<Rule> {};

	template<> struct action< lst > {
		template<typename Input> static void apply(const Input& in) {
			std::cout << "The list is done.\n";
		}
	};

	//Error messages:
	template< typename > 
	inline constexpr const char* error_message = nullptr;

	template<> 
	inline constexpr auto error_message< lst_end > = "Test123";

	struct error { 
		template< typename Rule > 
		static constexpr auto message = error_message< Rule >; 
	};

	template< typename Rule > 
	using control = pegtl::must_if< error >::control< Rule >;
}


int main()
{
	std::string bad_string{"[ q w e ]"};
	std::string good_string{"[ q w e]"};
	tao::pegtl::string_input<tao::pegtl::tracking_mode::eager, tao::pegtl::eol::lf_crlf> in(bad_string, "string");
	try
	{
		tao::pegtl::parse< row::lst, row::action, row::control >(in); //tao::pegtl::normal
	}
	catch (const tao::pegtl::parse_error& e)
	{
		const auto p = e.positions().front();
		std::cerr << e.what() << '\n'
			<< in.line_at(p) << '\n'
			<< std::setw(p.column) << '^' << std::endl;
	}
}