argPatToFrame :: Text -> Text
argPatToFrame patText = append (upperFirst a) (toUpper b)
  where [a,b] = split (== '_') patText
argPatToFrame :: Text -> Text
argPatToFrame patText = append (upperFirst a) (toUpper b)
  where [a,b] = split (== '_') patText
argPatToFrame patText = append (upperFirst a) (toUpper b)
  where [a,b] = split (== '_') patText