mirror of
https://github.com/typeable/inflections-hs.git
synced 2024-09-11 06:05:33 +03:00
More point-free notation
This commit is contained in:
parent
5a8c7377fa
commit
b56b262c6c
@ -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)]
|
||||
|
Loading…
Reference in New Issue
Block a user