Compress spaces to one space

[Andrej Mitrovic]

Is there a Phobos function to compress all spaces to just one space in a string?

E.g. " foo   bar             "
becomes: " foo bar "