Remove leading & trailing whitespace from a String
Download (right click, save as, rename as appropriate)
1 2 3 4
import Char (isSpace) trim :: String -> String trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace