cl token = "*" : withTrailingSlash (getSub token)

unregClaims ∷ JWT VerifiedJWT → [(Text
mkAcl ∷ JWT VerifiedJWT → [Text]
mkAcl token = "*" : withTrailingSlash (getSub token)
mkAcl token = "*" : withTrailingSlash (getSub token)