toUpperFirstChar :: String -> String
toUpperFirstChar s = (map C.toUpper $ take 1 s) ++ (drop 1 s)
toUpperFirstChar :: String -> String
toUpperFirstChar s = (map C.toUpper $ take 1 s) ++ (drop 1 s)
toUpperFirstChar s = (map C.toUpper $ take 1 s) ++ (drop 1 s)