Auth ∷ JWT VerifiedJWT → Sweetroll [(Text, Text)]
getAuth token = return $ ("me", maybe "" tshow $ sub $ claims token) : unregClaims token

getSub ∷ JWT VerifiedJWT → Tex
getAuth ∷ JWT VerifiedJWT → Sweetroll [(Text, Text)]
getAuth token = return $ ("me", maybe "" tshow $ sub $ claims token) : unregClaims token
getAuth token = return $ ("me", maybe "" tshow $ sub $ claims token) : unregClaims token