Haskell Function Question:

How to write a Haskell function to turn all multiple whitespaces to single spaces that do this:

For example: "e g j" -> "e g j"

" the worl d " -> " the world "

" " -> " "