add descriptions for all remote config fields
not yet used
This commit is contained in:
parent
201049cf93
commit
7038acf96c
20 changed files with 141 additions and 48 deletions
|
@ -41,10 +41,16 @@ data RemoteConfigValue where
|
|||
data RemoteConfigFieldParser = RemoteConfigFieldParser
|
||||
{ parserForField :: RemoteConfigField
|
||||
, valueParser :: Maybe (ProposedAccepted String) -> RemoteConfig -> Either String (Maybe RemoteConfigValue)
|
||||
--, fieldDesc :: String
|
||||
--, valueExample :: String
|
||||
, fieldDesc :: FieldDesc
|
||||
, valueDesc :: Maybe ValueDesc
|
||||
}
|
||||
|
||||
data FieldDesc
|
||||
= FieldDesc String
|
||||
| HiddenField
|
||||
|
||||
newtype ValueDesc = ValueDesc String
|
||||
|
||||
data RemoteConfigParser = RemoteConfigParser
|
||||
{ remoteConfigFieldParsers :: [RemoteConfigFieldParser]
|
||||
, remoteConfigRestPassthrough :: RemoteConfigField -> Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue