toCamel :: String -> String
toCamel s = Re.replaceMap "_([a-z])" (toSnake s) f
    where
        f ps = map C.toUpper $ ps!!1
toCamel :: String -> String
toCamel s = Re.replaceMap "_([a-z])" (toSnake s) f
    where
        f ps = map C.toUpper $ ps!!1
toCamel s = Re.replaceMap "_([a-z])" (toSnake s) f
    where
        f ps = map C.toUpper $ ps!!1