Make encryptedKeyData field optional

mbg · Jul 22, 2022 · e3e664d · e3e664d
1 parent 993e20d
commit e3e664d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Network/Wai/SAML2/XML/Encrypted.hs b/src/Network/Wai/SAML2/XML/Encrypted.hs
@@ -72,7 +72,7 @@ data EncryptedKey = EncryptedKey {
     -- | The method used to encrypt the key.
     encryptedKeyMethod :: !EncryptionMethod,
     -- | The key data.
-    encryptedKeyData :: !KeyInfo,
+    encryptedKeyData :: !(Maybe KeyInfo),
     -- | The ciphertext.
     encryptedKeyCipher :: !CipherData
 } deriving (Eq, Show)
@@ -83,9 +83,9 @@ instance FromXML EncryptedKey where
             cursor $/ element (xencName "EncryptionMethod")
                 ) >>= parseXML
 
-        keyData <- oneOrFail "KeyInfo is required" (
-            cursor $/ element (dsName "KeyInfo")
-                ) >>= parseXML
+        keyData <- case cursor $/ element (dsName "KeyInfo") of
+                     [] -> return Nothing
+                     (keyInfo :_) -> Just <$> parseXML keyInfo
 
         cipher <- oneOrFail "CipherData is required" (
             cursor $/ element (xencName "CipherData")