Замена запятых в списке на стрелку ->

Как заменить запятые на втором уровне списка стрелками замены?

Например, это:

{{a, girl}, {b, girl}, {c, girl}, {e, girl}, {g, girl}}

На это:

{{a->girl}, {b->girl}, {c->girl}, {e->girl}, {g->girl}}

Заменить не не работает, потому что считает, что запятой не должно быть. Заключение его в кавычки не работает, как и StringReplace

Как я думаю, это должно быть:

Replace[list, "," -> "->", {2}]