include passthrough params in --describe-other-params
This commit is contained in:
parent
aa949bbb7d
commit
2be4122bfc
8 changed files with 46 additions and 27 deletions
|
@ -53,11 +53,11 @@ newtype ValueDesc = ValueDesc String
|
|||
|
||||
data RemoteConfigParser = RemoteConfigParser
|
||||
{ remoteConfigFieldParsers :: [RemoteConfigFieldParser]
|
||||
, remoteConfigRestPassthrough :: RemoteConfigField -> Bool
|
||||
, remoteConfigRestPassthrough :: Maybe (RemoteConfigField -> Bool, [(String, FieldDesc)])
|
||||
}
|
||||
|
||||
mkRemoteConfigParser :: Monad m => [RemoteConfigFieldParser] -> RemoteConfig -> m RemoteConfigParser
|
||||
mkRemoteConfigParser l _ = pure (RemoteConfigParser l (const False))
|
||||
mkRemoteConfigParser l _ = pure (RemoteConfigParser l Nothing)
|
||||
|
||||
addRemoteConfigParser :: [RemoteConfigFieldParser] -> RemoteConfigParser -> RemoteConfigParser
|
||||
addRemoteConfigParser l rpc = rpc
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue