module Ribosome.Data.String where

import Data.Char (toUpper)

escapeQuotes :: Char -> String
escapeQuotes :: Char -> String
escapeQuotes Char
'\'' = String
"''"
escapeQuotes Char
a = [Char
Item String
a]

capitalize :: String -> String
capitalize :: String -> String
capitalize [] = []
capitalize (Char
head' : String
tail') = Char -> Char
toUpper Char
head' Char -> String -> String
forall a. a -> [a] -> [a]
: String
tail'