-- | Convert variable to lower case, translating underscores ("_") to dashes ("-")
formatVariable :: Text -> Text
formatVariable = T.foldr f T.empty
    where f x xs = if x == '_' then '-' `T.cons` xs else toLower x `T.cons` xs
formatVariable :: Text -> Text
formatVariable = T.foldr f T.empty
    where f x xs = if x == '_' then '-' `T.cons` xs else toLower x `T.cons` xs
formatVariable = T.foldr f T.empty
    where f x xs = if x == '_' then '-' `T.cons` xs else toLower x `T.cons` xs