add list patterns
This commit is contained in:
parent
b55d0befaa
commit
f61c7fb87d
1 changed files with 2 additions and 0 deletions
|
@ -47,6 +47,7 @@ listSeq p cons = do
|
||||||
|
|
||||||
intPattern = fmap IntP integer
|
intPattern = fmap IntP integer
|
||||||
varPattern = fmap VarP identifier
|
varPattern = fmap VarP identifier
|
||||||
|
listPattern = listSeq pattern ListP
|
||||||
|
|
||||||
consPattern = do
|
consPattern = do
|
||||||
x <- intPattern <|> varPattern
|
x <- intPattern <|> varPattern
|
||||||
|
@ -56,6 +57,7 @@ consPattern = do
|
||||||
|
|
||||||
pattern = option UnitP $
|
pattern = option UnitP $
|
||||||
try consPattern
|
try consPattern
|
||||||
|
<|> listPattern
|
||||||
<|> varPattern
|
<|> varPattern
|
||||||
<|> intPattern
|
<|> intPattern
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue