pStakeholderId :: Lexer StakeholderId
pStakeholderId = do
    str <- pSomeAlphaNum
    toParsecError $ decodeAbstractHash str
pStakeholderId :: Lexer StakeholderId
pStakeholderId = do
    str <- pSomeAlphaNum
    toParsecError $ decodeAbstractHash str
pStakeholderId = do
    str <- pSomeAlphaNum
    toParsecError $ decodeAbstractHash str