1
2
3
4
5
6
7
8
--- Some auxiliary operations that might fit better into system libraries.

module CPM.Helpers ( strip ) where

import Data.Char ( isSpace )

strip :: String -> String
strip = reverse . dropWhile isSpace . reverse . dropWhile isSpace