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
|
||||
varPattern = fmap VarP identifier
|
||||
listPattern = listSeq pattern ListP
|
||||
|
||||
consPattern = do
|
||||
x <- intPattern <|> varPattern
|
||||
|
@ -56,6 +57,7 @@ consPattern = do
|
|||
|
||||
pattern = option UnitP $
|
||||
try consPattern
|
||||
<|> listPattern
|
||||
<|> varPattern
|
||||
<|> intPattern
|
||||
|
||||
|
|
Loading…
Reference in a new issue