Replace regex match by arbitrary function of match itself

Question

I\'m trying to write a function of type Text -> (Text -> Text) -> Text that replaces occurrences of a regular expression in a piece of text by somethin