@@ -551,6 +551,7 @@ defaultTaggedObject = TaggedObject
552-- > camelTo '_' 'CamelCaseAPI' == "camel_case_api"
552-- > camelTo '_' 'CamelCaseAPI' == "camel_case_api"
553camelTo :: Char -> String -> String
553camelTo :: Char -> String -> String
554+{-# DEPRECATED camelTo "Use camelTo2 for better results" #-}
554camelTo c = lastWasCap True
555camelTo c = lastWasCap True
556 lastWasCap :: Bool -- ^ Previous was a capital letter
557 lastWasCap :: Bool -- ^ Previous was a capital letter