tempo-0.1.0.0: src/Util.hs

module Util
( trim
) where

import Data.Char (isSpace)
import Data.ByteString.Char8 (ByteString, pack)

trim :: String -> String
trim = f . f
   where f = reverse . dropWhile isSpace