add list expressions
This commit is contained in:
parent
16c882b501
commit
b55d0befaa
|
@ -39,6 +39,12 @@ block = do
|
||||||
reserved "end"
|
reserved "end"
|
||||||
return $ Block lst
|
return $ Block lst
|
||||||
|
|
||||||
|
listSeq p cons = do
|
||||||
|
symbol "["
|
||||||
|
lst <- sepBy p (symbol ",")
|
||||||
|
symbol "]"
|
||||||
|
return $ cons lst
|
||||||
|
|
||||||
intPattern = fmap IntP integer
|
intPattern = fmap IntP integer
|
||||||
varPattern = fmap VarP identifier
|
varPattern = fmap VarP identifier
|
||||||
|
|
||||||
|
@ -85,6 +91,7 @@ term = try block
|
||||||
<|> try funDef
|
<|> try funDef
|
||||||
<|> try call
|
<|> try call
|
||||||
<|> parens exprparser
|
<|> parens exprparser
|
||||||
|
<|> listSeq exprparser ListConst
|
||||||
<|> fmap Var identifier
|
<|> fmap Var identifier
|
||||||
<|> fmap IntConst integer
|
<|> fmap IntConst integer
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue