From b55d0befaa2b4d63f1bbffd3d998be5dff04ac11 Mon Sep 17 00:00:00 2001 From: darkf Date: Sat, 19 Oct 2013 02:09:44 -0700 Subject: [PATCH] add list expressions --- parser.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/parser.hs b/parser.hs index c87ae2e..aaf51c9 100644 --- a/parser.hs +++ b/parser.hs @@ -39,6 +39,12 @@ block = do reserved "end" return $ Block lst +listSeq p cons = do + symbol "[" + lst <- sepBy p (symbol ",") + symbol "]" + return $ cons lst + intPattern = fmap IntP integer varPattern = fmap VarP identifier @@ -85,6 +91,7 @@ term = try block <|> try funDef <|> try call <|> parens exprparser + <|> listSeq exprparser ListConst <|> fmap Var identifier <|> fmap IntConst integer