typeable/inflections-hs
1
0
Fork 0
mirror of https://github.com/typeable/inflections-hs.git synced 2024-09-11 06:05:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

More point-free notation

Browse Source
This commit is contained in:
Justin Leitgeb 2014-03-08 13:12:32 -05:00
parent 5a8c7377fa
commit b56b262c6c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Inflections/Humanize.hs
View File

@ -10,7 +10,7 @@ import Data.Char (toUpper)
humanize
:: [Word] -- ^ List of Words, first of which will be capitalized
-> String -- ^ The humanized output
humanize s = intercalate " " $ map caseForWord $ isFirstList s
humanize = intercalate " " . map caseForWord . isFirstList
-- |Returns list with Bool indicating if an element is first.
isFirstList :: [a] -> [(a, Bool)]