tuple patterns can be LHS of cons patterns
This commit is contained in:
parent
64405f5d5d
commit
37f2322783
1 changed files with 1 additions and 1 deletions
|
@ -89,7 +89,7 @@ stringPattern = fmap StrP stringLiteral
|
||||||
listPattern = listSeq pattern ListP
|
listPattern = listSeq pattern ListP
|
||||||
|
|
||||||
consPattern = do
|
consPattern = do
|
||||||
x <- intPattern <|> varPattern <|> stringPattern
|
x <- intPattern <|> varPattern <|> stringPattern <|> try (tupleSeq pattern TupleP)
|
||||||
symbol "::"
|
symbol "::"
|
||||||
y <- pattern
|
y <- pattern
|
||||||
return $ ConsP x y
|
return $ ConsP x y
|
||||||
|
|
Loading…
Reference in a new issue