chop

Chop.hs

import Data.Char (isSpace)
import Data.Maybe (fromMaybe)

chop :: String -> String
chop = fromMaybe "" . foldr go Nothing
  where
    go c Nothing
      | isSpace c  = Nothing
      | otherwise  = Just [c]
    go c (Just xs) = Just (c:xs)