leaf-1.0.0.0: src/Leaf/String.hs

module Leaf.String (
  strip
  ) where

import Data.List (dropWhileEnd)

strip :: String -> String
strip = dropWhile pred . dropWhileEnd pred
  where pred = (==' ')