change empty tuple to (,) and add back parsing
This commit is contained in:
parent
d653902028
commit
f1af997708
|
@ -80,6 +80,7 @@ tupleSeq p cons = do
|
||||||
|
|
||||||
emptyTuple cons = do
|
emptyTuple cons = do
|
||||||
symbol "("
|
symbol "("
|
||||||
|
symbol ","
|
||||||
symbol ")"
|
symbol ")"
|
||||||
return $ cons []
|
return $ cons []
|
||||||
|
|
||||||
|
@ -171,11 +172,10 @@ accessOp = do
|
||||||
|
|
||||||
expr1 = try block
|
expr1 = try block
|
||||||
<|> try lambda
|
<|> try lambda
|
||||||
-- <|> try funDef
|
|
||||||
<|> try def
|
<|> try def
|
||||||
-- <|> try (emptyTuple TupleConst)
|
<|> try (emptyTuple TupleConst)
|
||||||
-- <|> try (tupleSeq exprparser TupleConst)
|
<|> try (tupleSeq exprparser TupleConst)
|
||||||
-- <|> parens exprparser
|
<|> parens exprparser
|
||||||
<|> listSeq exprparser ListConst
|
<|> listSeq exprparser ListConst
|
||||||
<|> try ifExpr
|
<|> try ifExpr
|
||||||
<|> try bool
|
<|> try bool
|
||||||
|
|
Loading…
Reference in New Issue