diff options
Diffstat (limited to 'src/Utils')
-rw-r--r-- | src/Utils/String.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/Utils/String.hs b/src/Utils/String.hs deleted file mode 100644 index 44cdf03..0000000 --- a/src/Utils/String.hs +++ /dev/null @@ -1,21 +0,0 @@ -module Utils.String - ( capitalizeWords - , capitalizeFirstWord - , capitalizeWord - ) where - -import Data.Char - -capitalizeWords :: String -> String -capitalizeWords = unwords . map capitalizeWord . words - -capitalizeFirstWord :: String -> String -capitalizeFirstWord = unwords . mapFirst capitalizeWord . words - -capitalizeWord :: String -> String -capitalizeWord [] = [] -capitalizeWord (x:xs) = toUpper x : map toLower xs - -mapFirst :: (a -> a) -> [a] -> [a] -mapFirst _ [] = [] -mapFirst f (x:xs) = f x : xs |