websocket_ser.erl

query_results({facet_results, [{"Tags", Tags}, {"CreationDate", _CreationDate}]}, [Ws]) ->
    Html = lists:map(
	     fun({[Tag], Count}) ->
		     io_lib:format(
		       "<li>~ts ( ~p ) </li>",
		       [Tag, Count]
		     )
	     end,
	     Tags
	    ),
    Output = io_lib:format("<p><ol>~ts</ol></p>", [lists:append(Html)]),
    Ws:send(["tags:", unicode:characters_to_binary(Output)]),
    ok;