From f61c7fb87de5f01935533ade4a84414da8a8362d Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sat, 19 Oct 2013 02:11:36 -0700
Subject: [PATCH] add list patterns

---
 parser.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/parser.hs b/parser.hs
index aaf51c9..db92c0c 100644
--- a/parser.hs
+++ b/parser.hs
@@ -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