pHash :: Lexer AHash
pHash = do
    str <- pSomeAlphaNum
    toParsecError . fmap unsafeCheatingHashCoerce $ decodeAbstractHash str
pHash :: Lexer AHash
pHash = do
    str <- pSomeAlphaNum
    toParsecError . fmap unsafeCheatingHashCoerce $ decodeAbstractHash str
pHash = do
    str <- pSomeAlphaNum
    toParsecError . fmap unsafeCheatingHashCoerce $ decodeAbstractHash str