Fix handling Keycloak users without family/given name set

2021-09-25 13:12:05 +02:00 · 2021-09-25 13:12:05 +02:00 · dcd30b6ccd
commit dcd30b6ccd
parent e819617c38
1 changed files with 2 additions and 2 deletions
--- a/Handler/JWT.hs
+++ b/Handler/JWT.hs
@ -21,8 +21,8 @@ data JwtAuthInfo = JwtAuthInfo {
 instance FromJSON JwtAuthInfo where
 parseJSON (Object v) =
    JwtAuthInfo <$> v .: "preferred_username"
-                <*> v .: "family_name"
-                <*> v .: "given_name"
+                <*> v .:? "family_name"
+                <*> v .:? "given_name"
 parseJSON _ = mzero

 jwtAuthInfoIdent :: JwtAuthInfo -> Text