1 module StringUtil
    2   (    fromCamel
    3   ) where
    4 
    5 import Text.Casing
    6 
    7 fromCamel :: String -> String
    8 fromCamel = toQuietSnake . fromHumps