From f1af997708ea8f30d49d764b2551d7d10ffeacc8 Mon Sep 17 00:00:00 2001 From: darkf Date: Tue, 29 Oct 2013 03:05:19 -0700 Subject: [PATCH] change empty tuple to (,) and add back parsing --- parser.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/parser.hs b/parser.hs index 524517e..acbbb90 100644 --- a/parser.hs +++ b/parser.hs @@ -80,6 +80,7 @@ tupleSeq p cons = do emptyTuple cons = do symbol "(" + symbol "," symbol ")" return $ cons [] @@ -171,11 +172,10 @@ accessOp = do expr1 = try block <|> try lambda --- <|> try funDef <|> try def - -- <|> try (emptyTuple TupleConst) - -- <|> try (tupleSeq exprparser TupleConst) - -- <|> parens exprparser + <|> try (emptyTuple TupleConst) + <|> try (tupleSeq exprparser TupleConst) + <|> parens exprparser <|> listSeq exprparser ListConst <|> try ifExpr <|> try bool