add boolean patterns

ast.hs

@@ -33,6 +33,7 @@ data AST = Add AST AST
 data Pattern = VarP String
 			 | IntP Integer
 			 | StrP String
+			 | BoolP Bool
 			 | UnitP
 			 | ConsP Pattern Pattern
 			 | TupleP [Pattern]

interp.hs

@@ -324,6 +324,10 @@ patternBindings (IntP n) (IntV v)
 	| otherwise = Nothing
 patternBindings (IntP n) _ = Nothing
 
+patternBindings (BoolP b) (BoolV v)
+	| v == b = Just M.empty
+	| otherwise = Nothing
+
 patternBindings UnitP UnitV = Just M.empty
 patternBindings UnitP _ = Nothing
 

parser.hs

@@ -40,6 +40,7 @@ pattern :: Pattern
   = pattern "::" pattern { ConsP $1 $2 }
   / "[" patternlist "]"
   / patterntuple
+  / "true" { BoolP True } / "false" { BoolP False }
   / identifier { VarP $1 }
   / stringlit { StrP $1 }
   / integer { IntP $1 }