module Cfg.Deriving.LabelModifier where import Data.Text (Text) import Data.Text qualified as T data ToLower data ToUpper data Ident class LabelModifier t where getLabelModifier :: Text -> Text instance LabelModifier ToLower where getLabelModifier :: Text -> Text getLabelModifier = Text -> Text T.toLower instance LabelModifier ToUpper where getLabelModifier :: Text -> Text getLabelModifier = Text -> Text T.toUpper instance LabelModifier Ident where getLabelModifier :: Text -> Text getLabelModifier = Text -> Text forall a. a -> a id