foo.erl

group_replies([], Revs) ->
    Revs;
group_replies([Reply | Rest], Revs) ->
    group_replies(Rest, group_reply(Reply, Revs)).


group_reply({ok, #doc{}} = Reply, Revs) ->
    {Pos, [RevId | _]} = Doc#doc.revs,
    add_reply({Pos, RevId}, Reply, Revs);
group_reply({not_found, Rev} = Reply, Revs) ->
    add_reply(Rev, Reply, Revs);
group_reply(error, Revs) ->
    Revs.


add_reply(Rev, Reply, []) ->
    [{Rev, fabric_util:update_counter(Reply, 1, [])}];
add_reply(Rev, Reply, [{Rev, Counters} | Rest]) ->
    [{Rev, fabric_util:update_counter(Reply, 1, Counters)} | Rest];
add_reply(Rev, Reply, [{_Else, _} = OtherRev | Rest]) ->
    [OtherRev | add_reply(Rev, Reply, Rest)].