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
|
||||
|
||||
consPattern = do
|
||||
x <- intPattern <|> varPattern <|> stringPattern
|
||||
x <- intPattern <|> varPattern <|> stringPattern <|> try (tupleSeq pattern TupleP)
|
||||
symbol "::"
|
||||
y <- pattern
|
||||
return $ ConsP x y
|
||||
|
|
Loading…
Reference in a new issue