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

fix(storage-key): fix types

Browse Source
This commit is contained in:
Sarah Vaupel 2020-01-28 18:09:11 +01:00 committed by Gregor Kleen
parent 62bf73ac1f
commit a0d067fabf
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/StorageKey.hs
View File

@ -13,9 +13,13 @@ import qualified Crypto.KDF.HKDF as HKDF
data StorageKeyType data StorageKeyType
= SKTExamCorrect ExamId = SKTExamCorrect
{ _sktExam :: CryptoUUIDExam
}
deriveJSON defaultOptions deriveJSON defaultOptions
{ constructorTagModifier = camelToPathPiece' 3 { fieldLabelModifier = camelToPathPiece' 1
, constructorTagModifier = camelToPathPiece' 1
, tagSingleConstructors = True
} ''StorageKeyType } ''StorageKeyType
data StorageKeyRequest data StorageKeyRequest
@ -27,6 +31,7 @@ data StorageKeyRequest
} }
deriveJSON defaultOptions deriveJSON defaultOptions
{ fieldLabelModifier = camelToPathPiece' 2 { fieldLabelModifier = camelToPathPiece' 2
, omitNothingFields = True
} ''StorageKeyRequest } ''StorageKeyRequest
data StorageKeyResponse data StorageKeyResponse