identifier :: Parser String
identifier = many (letter <|> digit <|> char '_' <|> char '|') <?> "identifier"
identifier :: Parser String
identifier = many (letter <|> digit <|> char '_' <|> char '|') <?> "identifier"
identifier = many (letter <|> digit <|> char '_' <|> char '|') <?> "identifier"