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