Text)]
unregClaims = mapMaybe unValue . M.toList . unClaimsMap . unregisteredClaims . claims
  where unValue (k, String s) = Just (k, s)
        unValue _ = Nothing

signAccessToken ∷ Text → Text → Text → UTC
unregClaims ∷ JWT VerifiedJWT → [(Text, Text)]
unregClaims = mapMaybe unValue . M.toList . unClaimsMap . unregisteredClaims . claims
  where unValue (k, String s) = Just (k, s)
        unValue _ = Nothing
unregClaims = mapMaybe unValue . M.toList . unClaimsMap . unregisteredClaims . claims
  where unValue (k, String s) = Just (k, s)
        unValue _ = Nothing