Allow users to redefine the list operators

[kit-ty-kate]

ppx_deriving_yojson/src_test/test_ppx_yojson.ml

Lines 508 to 522 in 1ade989

	(* TODO: Make this work *)
	(*
	let test_list_redefined ctxt =
	let module M = struct
	type redef_list =
	| []
	| (::) of int * int
	type t = {field : int list} [@@deriving to_yojson]
	let x = {field = List.([1;2])}
	end
	in
	let expected = `List [`Int 1; `Int 2] in
	assert_equal ~ctxt ~printer:show_json expected M.x
	*)