diff --git a/Handler/JWT.hs b/Handler/JWT.hs index ce6bb2e..61c55c6 100644 --- 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