From 66328dd1b2819dfb7af768a060b0467c0dc36a7d Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Fri, 1 Nov 2013 20:39:34 -0700
Subject: [PATCH] parser2: add variable patterns, fix integer

---
 parser2.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/parser2.hs b/parser2.hs
index a8347f9..9399663 100644
--- a/parser2.hs
+++ b/parser2.hs
@@ -33,8 +33,9 @@ patternlist :: Pattern
 pattern :: Pattern
   = pattern "::" pattern { ConsP $1 $2 }
   / "[" patternlist "]"
-  / integer { IntP $1 }
+  / identifier { VarP $1 }
   / stringlit { StrP $1 }
+  / integer { IntP $1 }
 
 funpattern :: Pattern
   = pattern ("," pattern)+ { TupleP ($1 : $2) }
@@ -92,7 +93,7 @@ identifier ::: String
   = [a-zA-Z_] [a-zA-Z0-9_'?!]* { $1 : $2 }
 
 integer ::: Integer
-  = [1-9] [0-9]* { read ($1 : $2) }
+  = [0-9] [0-9]* { read ($1 : $2) }
 |]
 
 main :: IO ()