module CodeGeneration.Utilities where import RIO import qualified RIO.Char as Char import qualified RIO.Text as Text upperCaseFirstCharacter :: Text -> Text upperCaseFirstCharacter :: Text -> Text upperCaseFirstCharacter Text t = case Text -> Maybe (Char, Text) Text.uncons Text t of Just (Char c, Text rest) -> Char -> Text -> Text Text.cons (Char -> Char Char.toUpper Char c) Text rest Maybe (Char, Text) Nothing -> Text t