JSON serialisation for PKCRO

fumieval · Oct 24, 2020 · d10b744 · d10b744
1 parent c710c15
commit d10b744
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Web/WebAuthn/Types.hs b/src/Web/WebAuthn/Types.hs
@@ -276,7 +276,10 @@ data PublicKeyCredentialDescriptor = PublicKeyCredentialDescriptor {
 } deriving (Eq, Show, Generic)
 
 instance ToJSON PublicKeyCredentialDescriptor where
-  toEncoding = genericToEncoding defaultOptions { omitNothingFields = True}
+  toEncoding = genericToEncoding defaultOptions { omitNothingFields = True, fieldLabelModifier = mapTipe}
+
+mapTipe :: String -> String
+mapTipe str = if str == "tipe" then "type" else str 
 
 data PublicKeyCredentialRequestOptions =  PublicKeyCredentialRequestOptions {
   challenge :: Base64ByteString