module Data.Registry.Options.FieldConfiguration where
import Data.Registry.Options.Text
import qualified Data.Text as T
import Protolude
import qualified Prelude
data FieldConfiguration = FieldConfiguration
{
FieldConfiguration -> Text -> Char
makeShortName :: Text -> Char,
FieldConfiguration -> Text -> Text
makeLongName :: Text -> Text,
FieldConfiguration -> Text -> Text
makeMetavar :: Text -> Text
}
defaultFieldConfiguration :: FieldConfiguration
defaultFieldConfiguration :: FieldConfiguration
defaultFieldConfiguration =
(Text -> Char)
-> (Text -> Text) -> (Text -> Text) -> FieldConfiguration
FieldConfiguration (forall a. [a] -> a
Prelude.head forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. ConvertText a b => a -> b
toS forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text
dropQualifier) (Text -> Text
camelCaseToHyphenated forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text
dropQualifier) (Text -> Text
T.toUpper forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text
dropQualifier)