This commit is contained in:
Justin Leitgeb 2014-09-23 18:27:45 -05:00
parent a82e293513
commit 8129f211e7

View File

@ -5,7 +5,7 @@ import Text.Inflections.Parse.Types (Word(..))
import Data.List (intercalate)
import Data.Char (toUpper)
-- |Capitalizes the first word and turns underscores into spaces Like titleize,
-- |Capitalizes the first word and turns underscores into spaces. Like titleize,
-- this is meant for creating pretty output.
humanize
:: [Word] -- ^ List of Words, first of which will be capitalized