diff --git a/src/Settings.hs b/src/Settings.hs index 3e1790b2e..753dd56d0 100644 --- a/src/Settings.hs +++ b/src/Settings.hs @@ -299,7 +299,7 @@ makeLenses_ ''JobMode deriveFromJSON defaultOptions { constructorTagModifier = camelToPathPiece' 2 - , sumEncoding = TaggedObject "type" "config" + , sumEncoding = TaggedObject "protocol" "config" } ''UserDbConf instance FromJSON HaskellNet.PortNumber where @@ -604,7 +604,7 @@ instance FromJSON AppSettings where Ldap.Tls host _ -> not $ null host Ldap.Plain host -> not $ null host nonEmptyHost (UserDbOAuth2 OAuth2Conf{..}) = not $ or [ null oauth2TenantId, null oauth2ClientId, null oauth2ClientSecret ] - appUserDbConf <- P.fromList . mapMaybe (assertM nonEmptyHost) <$> o .:? "user-db" .!= [] + appUserDbConf <- P.fromList . mapMaybe (assertM nonEmptyHost) <$> o .:? "user-databases" .!= [] appLmsConf <- o .: "lms-direct" appAvsConf <- assertM (not . null . avsPass) <$> o .:? "avs" appLprConf <- o .: "lpr"