fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adjust JSON-Encoding of UploadMode to avoid migration

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-20 15:22:41 +02:00
parent 8152b3b5ca
commit aa7f451a81
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Model/Types/Sheet.hs
View File

@ -250,7 +250,9 @@ defaultExtensionRestriction :: Maybe (NonNull (Set Extension))
defaultExtensionRestriction = fromNullable $ Set.fromList ["txt", "pdf"] defaultExtensionRestriction = fromNullable $ Set.fromList ["txt", "pdf"]
deriveJSON defaultOptions deriveJSON defaultOptions
{ constructorTagModifier = camelToPathPiece { constructorTagModifier = \c -> if
| c == "UploadAny" -> "upload"
| otherwise -> camelToPathPiece c
, fieldLabelModifier = camelToPathPiece , fieldLabelModifier = camelToPathPiece
, sumEncoding = TaggedObject "mode" "settings" , sumEncoding = TaggedObject "mode" "settings"
, omitNothingFields = True , omitNothingFields = True