From 37f232278300258baa4a646b1b848c86de142f0d Mon Sep 17 00:00:00 2001 From: darkf Date: Sat, 26 Oct 2013 23:22:40 -0700 Subject: [PATCH] tuple patterns can be LHS of cons patterns --- parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/parser.hs b/parser.hs index 03eae14..e86358e 100644 --- a/parser.hs +++ b/parser.hs @@ -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