Replace triple nested case with foldl

[tank-bohr]

bookish_spork/src/bookish_spork_handler.erl

Lines 77 to 106 in bc3ec4a

	handle_connection(#state{transport = Transport, socket = Socket, server = Server} = State) ->
	case receive_request(State) of
	{ok, Request} ->
	ok = bookish_spork_server:store_request(Server, Request),
	case bookish_spork_server:response(Server) of
	{ok, Response} ->
	reply(Transport, Socket, Response, Request),
	complete_connection(State, Request);
	{error, no_response} ->
	Transport:close(Socket),
	{stop, normal, State}
	end;
	socket_closed ->
	{stop, normal, State}
	end.
	-spec complete_connection(State, Request) -> {noreply, State} | {stop, normal, State} when
	State :: state(),
	Request :: bookish_spork_request:t().
	%% @private
	complete_connection(#state{transport = Transport, socket = Socket} = State, Request) ->
	case bookish_spork_request:is_keepalive(Request) of
	true ->
	handle_connection(),
	{noreply, State};
	false ->
	Transport:shutdown(Socket, read_write),
	{stop, normal, State}
	end.

See

• Some refactoring to conform elvis default rules artemeff/jwt#26
• reduce_while artemeff/jwt#37