Add incremental updates

jonkri · jonkri · commit ec89b65f4bd0 · 2025-11-11T17:03:01.000+01:00
diff --git a/service/src/SAML.hs b/service/src/SAML.hs
@@ -229,7 +229,7 @@ ssoAssertHandler cfg response = runExceptT $ do
   lift $ storeAssertionID (SAML.assertionId assertion) -- this can throw conflict
 
   let attrs = Map.fromListWith (++)
-                 [(SAML.attributeName attr, [SAML.attributeValue attr])
+                 [(SAML.attributeName attr, SAML.attributeValues attr)
                  | attr <- SAML.assertionAttributeStatement assertion
                  ]
 

Original file line number	Diff line number	Diff line change
`@@ -229,7 +229,7 @@ ssoAssertHandler cfg response = runExceptT $ do`
`229`	`229`	`lift $ storeAssertionID (SAML.assertionId assertion) -- this can throw conflict`
`230`	`230`
`231`	`231`	`let attrs = Map.fromListWith (++)`
`232`		`- [(SAML.attributeName attr, [SAML.attributeValue attr])`
	`232`	`+ [(SAML.attributeName attr, SAML.attributeValues attr)`
`233`	`233`	`\| attr <- SAML.assertionAttributeStatement assertion`
`234`	`234`	`]`
`235`	`235`