Commit 93273f58 authored by Stefan Jaax's avatar Stefan Jaax
Browse files

Change formula format

parent 4df299f3
......@@ -27,7 +27,7 @@ languageDef =
Token.commentStart = "/*",
Token.commentEnd = "*/",
Token.commentLine = "//",
Token.identStart = letter <|> char '_',
Token.identStart = alphaNum <|> letter <|> char '_',
Token.identLetter = alphaNum <|> char '_',
Token.reservedNames = ["true", "false", "EXISTS", "FORALL"],
Token.reservedOpNames = ["->", "<", "<=", "=", "!=", ">=", ">",
......@@ -71,7 +71,7 @@ numberOption :: Parser Integer
numberOption = option 1 (brackets natural)
ident :: Parser String
ident = (identifier <|> stringLiteral) <?> "identifier"
ident = (char 'C' *> brackets (identifier <|> stringLiteral)) <?> "identifier"
identList :: Parser [String]
identList = singleOrList ident
......@@ -187,5 +187,3 @@ parseContent = do
case r of
(Left e) -> fail e
(Right pp) -> return (recordPP2PopulationProtocol pp)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment