fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(settings): fix oauth2 config json parsers

Browse Source
This commit is contained in:
Sarah Vaupel 2024-01-13 01:14:54 +01:00
parent 7946e046e2
commit 31f657a15f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Settings.hs
View File

@ -298,7 +298,7 @@ makePrisms ''JobMode
makeLenses_ ''JobMode makeLenses_ ''JobMode
deriveFromJSON defaultOptions deriveFromJSON defaultOptions
{ constructorTagModifier = camelToPathPiece' 2 { constructorTagModifier = toLower . dropPrefix "UserDb"
, sumEncoding = TaggedObject "protocol" "config" , sumEncoding = TaggedObject "protocol" "config"
} ''UserDbConf } ''UserDbConf

4
src/Settings/OAuth2.hs
View File

@ -10,7 +10,7 @@ module Settings.OAuth2
import ClassyPrelude import ClassyPrelude
import Utils.Lens.TH import Utils.Lens.TH
import Utils.PathPiece (camelToPathPiece') import Utils.PathPiece (camelToPathPiece)
import Data.Aeson import Data.Aeson
import Data.Aeson.TH import Data.Aeson.TH
@ -28,5 +28,5 @@ data OAuth2Conf = OAuth2Conf
makeLenses_ ''OAuth2Conf makeLenses_ ''OAuth2Conf
deriveFromJSON defaultOptions deriveFromJSON defaultOptions
{ fieldLabelModifier = camelToPathPiece' 1 { fieldLabelModifier = camelToPathPiece . dropPrefix "oauth2"
} ''OAuth2Conf } ''OAuth2Conf