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